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

大神们，我是上次发帖求助生产工厂的仓库功能的。后来按照非关联表之间的数据同步写了相关表事件后顺利完成了正常情况下的功能。

此主题相关图片如下：1.png

此主题相关图片如下：2.png

此主题相关图片如下：3.png

但是现在有个非正常的情况。我数据同步的两个表为制造信息和库存信息，同步的关键为每台设备的制造编号，实际数据输入是在制造信息的表中完成。现在的情况是，如果按照正确的方式输入各项信息，每次输入的制造编号都是不同的，那样库存信息里的每台信息和制造编号中的每台信息是一一对应。但是问题来了，问题一：假如我在制造信息表中添加一行新行，在填写新的制造编号时，误将制造编号输入成前面已经输入过的（也就是新输入的制造编号和已输入的制造编号发生重复），这个时候在库存信息中自动生成的数据会产生问题，库存信息确认会新增加一行，但是新的一行的内容只填入了制造编号，别的部分全部为空；同时老的对应行的数据会被更改成新的数据。

问题二：如果我在制造信息表中的老行更改制造编号时，在库存信息表中会自动再生成一行。

所以感觉帮助文件里的代码有点问题。

Select Case e.DataCol.name

Case "产品基本信息_制造编号"

Dim dr As DataRow = DataTables("制造信息").Find("产品基本信息_制造编号 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("库存信息").AddNew()

dr("产品基本信息_制造编号") = e.DataRow("产品基本信息_制造编号")

dr("产品基本信息_机型") = e.DataRow("产品基本信息_机型")

dr("产品基本信息_发动机号") = e.DataRow("产品基本信息_发动机号")

dr("产品基本信息_液压阀号") = e.DataRow("产品基本信息_液压阀号")

dr("产品基本信息_生产日期") = e.DataRow("产品基本信息_生产日期")

Else

dr("产品基本信息_制造编号") = e.DataRow("产品基本信息_制造编号")

End If

Case "产品基本信息_机型","产品基本信息_发动机号","产品基本信息_生产日期","产品基本信息_液压阀号"

Dim dr As DataRow = DataTables("库存信息").Find("产品基本信息_制造编号 = '" & e.DataRow("产品基本信息_制造编号") & "'")

If dr IsNot Nothing Then

dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

End Select

主题：非关联表之间的数据同步问题