跨表复制不重复的行内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "仓库物料编号" Then

Dim dr As DataRow = DataTables("表A").Find("仓库物料编号 = '" & e.NewValue & "'")

If dr Is Nothing Then

dr = DataTables("表B").AddNew()

dr("物料名称") = e.DataRow("物料名称")

dr("规格") = e.DataRow("规格")

dr("等级") = e.DataRow("等级")

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

dr("仓库物料编号") = e.DataRow("仓库物料编号")

End If

在表A和表B有部分列的内容一样，若表A新增一个仓库物料编号，若表B中没有找到的话，则表B新增一行，并将仓库物料编号、物料名称、规格、等级、单位填入新增的行中，但这个单位只能填入仓库物料编号，其它的不能自动填入；

表A中可能会存在多行一样编号的仓库物料编号，表B只有一个仓库物料编号与其对应，若表A的编号不变的情况下，其它列变化，系统不做处理，请问应该如何处理？

Select Case e.DataCol.name

Case "仓库物料编号"

Dim dr As DataRow = DataTables("表B").Find("仓库物料编号 = '" & e.OldValue & "'")

If dr Is Nothing Then

dr = DataTables("表B").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("表B").Find("仓库物料编号 = '" & e.DataRow("仓库物料编号") & "'")

If dr IsNot Nothing Then

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

End If

End Select

发现在表A增加一个行，仓库物料编号一样，若其它列信息有修改的时候，表B中会出现一行空的，请问如何处理？

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

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

[此贴子已经被作者于2016/5/12 16:40:31编辑过]

请问用什么办法？

[此贴子已经被作者于2016/5/13 14:51:38编辑过]

上面的代码是进行一列重复性的判定，若要进行两列的重复性判定，但两列判定满足的时候才进行，请问应如何处理？

之前单个的可以，两列不行，表B全部都是空白

主题：跨表复制不重复的行内容