|
Select Case e.DataCol.name
Case "商品编号","商品名称"
Dim dr As DataRow
If e.DataCol.name = "商品名称" Then
If e.oldvalue <> Nothing Then
dr = DataTables("库存").Find("商品编号 = '" & e.DataRow("商品编号") & "' and 商品名称 = '" & e.OldValue & "'")
Else
dr = DataTables("库存").Find("商品编号 = '" & e.DataRow("商品编号") & "' and 商品名称 = '" & e.NewValue & "'")
End If
Else
If e.oldvalue <> Nothing Then
dr = DataTables("库存").Find("商品编号 = '" & e.OldValue & "' and 商品名称 = '" & e.DataRow("商品名称") & "'")
Else
dr = DataTables("库存").Find("商品编号 = '" & e.newValue & "' and 商品名称 = '" & e.DataRow("商品名称") & "'")
End If
End If
If dr Is Nothing Then
If e.DataRow.isnull("商品编号") = False AndAlso e.DataRow.Isnull("商品名称") = False Then
dr = DataTables("库存").AddNew()
dr("商品编号") = e.DataRow("商品编号")
dr("商品名称") = e.DataRow("商品名称")
dr("规格型号") = e.DataRow("规格型号")
End If
Else
dr("商品编号") = e.DataRow("商品编号")
dr("商品名称") = e.DataRow("商品名称")
End If
Case "规格型号"
Dim dr As DataRow = DataTables("库存").Find("商品编号 = '" & e.DataRow("商品编号") & "' and 商品名称 = '" & e.DataRow("商品名称") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
|
加好友 
发短信
Post By：2017/2/16 10:08:00 [显示全部帖子]
