[求助] 非关联表格数据同步问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

表 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 Select

结果在A表录入一行数据后，B表出现2行数据，求助怎么解决

两个列，每列的值都触动了一次就产生一行

Select e.DataCol.Name

Case "单据编号"

If e.DataRow.isnull("单据编号")=false

Dim dr As DataRow = DataTables("往来").Find("单据编号 = '" & e.DataRow("单据编号") & "'")

If dr Is Nothing Then

dr = DataTables("往来").AddNew()

dr("单据编号") = e.DataRow("单据编号")

dr("单据类型") = "费用"

End If

dr("单位名称") = e.DataRow("单位名称")

dr("日期") = e.DataRow("日期")

dr("摘要") = e.DataRow("摘要")

dr("增加金额") = e.DataRow("金额")

End If

Case "单位名称","日期","金额","摘要"

Dim dr As DataRow = DataTables("往来").Find(单据编号 = '" & e.DataRow("单据编号") & "'")

If dr Isnot Nothing Then

dr("单位名称") = e.DataRow("单位名称")

dr("日期") = e.DataRow("日期")

dr("摘要") = e.DataRow("摘要")

dr("增加金额") = e.DataRow("金额")

End If

End Select

主题：[求助] 非关联表格数据同步问题