表 A ,表B两个数据表，在A表录入一行数据，表B同时增加一行，我在表A中datacolchanged中添加以下代码：
Select e.DataCol.Name
Case "单据编号","单位名称"
If e.DataRow("单位名称") IsNot Nothing And e.DataRow("日期") IsNot Nothing And e.DataRow("单据编号") IsNot Nothing And e.DataRow("金额") IsNot Nothing
Dim dr As DataRow = DataTables("往来").Find("单位名称 = '" & e.DataRow("单位名称") & "' and 单据编号 = '" & e.DataRow("单据编号") & "'and 日期 = '" & e.DataRow("日期") & "'and 增加金额 = '" & e.DataRow("金额") & "'")
If dr Is Nothing Then
dr = DataTables("往来").AddNew()
dr("单位名称") = e.DataRow("单位名称")
dr("日期") = e.DataRow("日期")
dr("单据类型") = "费用"
dr("单据编号") = e.DataRow("单据编号")
dr("摘要") = e.DataRow("摘要")
dr("增加金额") = e.DataRow("金额")
End If
End If
End Select
结果在A表录入一行数据后，B表出现2行数据，求助怎么解决
加好友 
发短信
Post By：2021/7/6 23:34:00 [显示全部帖子]
