|
If e.DataCol.Name = "审核" Then '正在编辑的列为"审核"而且已勾选
If e.DataRow("审核") = True Then
Dim dri As DataRow = DataTables("产品资料").Find("条形码 = '" & e.DataRow("条形码") & "'")
If dri Is Nothing Then
Dim nma() As String = {"条形码","分类","品名","型号","规格","单位","数量","进货价"} 'A表数据来源列
Dim nmb() As String = {"条形码","分类","品名","型号","规格","单位","数量","进货价"} 'B表数据接收列
Dim dr As DataRow = DataTables("产品资料").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If
Else
dri("数量") = dri("数量") + e.DataRow("数量")
End If
End If
|
加好友 
发短信
Post By：2012/9/2 20:20:00 [显示全部帖子]
