老师，下面两组代码不能单独应用。
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 dr As DataRow = DataTables("收支表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
dr("来源") = "销售" '入库表就改为"采购",其他表改为"其它"
End If
Else
DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")
End If
End If
If e.DataCol.Name = "已开piao"
If e.DataRow("已开piao") = True Then
Dim nma() As String = {"_Identify","出库单编号", "出库_税率","开piao日期" ,"fa piao名称","fa piao号码","出库_税金","出库_税金" } 'A表数据来源列
Dim nmb() As String = {"ID" ,"单据编号","规格", "日期","项目类别","fa piao号码","单价","支出" } 'B表数据接收列
e.DataRow.save
Dim dr1 As DataRow = DataTables("收支表").Find("fa piao号码 = '" & e.DataRow("fa piao号码") & "'") '找到指定返回的行
If dr1 Is Nothing Then
Dim dr As DataRow = DataTables("收支表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
dr("来源") = "支出" '入库表就改为"采购",其他表改为"其它"
dr("单位") = "份"
dr("数量") = "1"
dr("客户ID") = "S001"
dr("客户") = "园区国税"
dr("项目名称") = "增值税"
End If
Else
DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")
End If
End If
加好友 
发短信
Post By：2020/4/7 21:00:00 [只看该作者]
此主题相关图片如下：数据库.png