vb.net 填充数据

最新推荐文章于 2022-04-30 11:29:09 发布

先来

最新推荐文章于 2022-04-30 11:29:09 发布

阅读量507

点赞数

分类专栏： .NET 文章标签： vb.net integer exception function

本文链接：https://blog.csdn.net/xianlaioy/article/details/5075103

版权

.NET 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

Function ItemAdd() As Boolean
        Try
            Dim Items As New Item
            If GridView_Item.Items.Count > 1 Then
                For i As Integer = 1 To GridView_Item.Items.Count - 1
                    If Not PHBill Is Nothing Then
                        Items.BillNum = PHBill.Billnum
                    End If
                    If GridView_Item.Items(i).Cells(1).Text.Trim.ToString.Replace(" ", "") <> "" Then
                        Items.Item = GridView_Item.Items(i).Cells(1).Text.Trim.ToString.Replace(" ", "")
                    End If
                    If GridView_Item.Items(i).Cells(2).Text.Trim.ToString.Replace(" ", "") <> "" Then
                        Items.Name = GridView_Item.Items(i).Cells(2).Text.Trim.ToString.Replace(" ", "")
                    End If

                    If GridView_Item.Items(i).Cells(3).Text.Trim.ToString.Replace(" ", "") <> "" Then
                        Items.Model = GridView_Item.Items(i).Cells(3).Text.Trim.ToString.Replace(" ", "")
                    End If

                    If GridView_Item.Items(i).Cells(4).Text.Trim.ToString.Replace(" ", "") <> "" Then
                        Items.Units = GridView_Item.Items(i).Cells(4).Text.Trim.ToString.Replace(" ", "")
                    End If
                    Items.Invent = CType(GridView_Item.Items(i).Cells(5).Text, Integer)
                    Items.Amount = CType(GridView_Item.Items(i).Cells(6).Text, Integer)
                    If GridView_Item.Items(i).Cells(7).Text.Trim.ToString.Replace(" ", "") <> "" Then
                        Items.Delivery = GridView_Item.Items(i).Cells(7).Text.Trim.ToString
                    End If
                    If GridView_Item.Items(i).Cells(8).Text.Trim.ToString.Replace(" ", "") <> "" Then
                        Items.ItemMemo = GridView_Item.Items(i).Cells(8).Text.Trim.ToString.Replace(" ", "")
                    End If

                    Items.BuyDate = Nothing
                    Items.Price = ""
                    Items.HopePrice = ""
                    Items.SumPrice = ""
                    If Not Items.SaveAsNew Then
                        Return False
                    End If
                Next
                Return True
            End If
        Catch ex As Exception
        End Try
    End Function