老师,下面代码重置审核列为不停的复制,我想在重置审核列时如果收支表的单据编号列有相同的就不复制。
If e.DataCol.Name = "审核"
If e.DataRow("审核") = True Then
Dim nma() As String = {"_Identify","入库单编号明细" , "入库日期","客户ID","客户名称","商品ID","商品名称","项目分类","规格","入库_数量","入库_单价","入库_单位","入库_折扣合计" } 'A表数据来源列
Dim nmb() As String = {"ID" ,"单据编号" , "日期","客户ID","客户","商品ID","项目名称","项目类别","规格","数量","单价","单位","支出" } 'B表数据接收列
e.DataRow.save
Dim dr2 As DataRow = DataTables("收支表").Find("单据编号 = '" & e.DataRow("入库单编号明细") & "'") '找到指定返回的行
If dr2 Is Nothing Then
Dim dr3 As DataRow = DataTables("收支表").AddNew
For i As Integer = 0 To nma.Length - 1
dr3(nmb(i)) = e.DataRow(nma(i))
Next
dr3("来源") = "采购" '入库表就改为"采购",其他表改为"其它"
End If
Else
DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")
End If
End If