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

 看看这个例子吧

http://www.foxtable.com/help/topics/2490.htm

Select Case e.DataCol.name
    Case "仓库物料编号"
　　　Dim dr As DataRow
        If e.oldvalue = Nothing Then
            dr = DataTables("表B").Find("仓库物料编号 = '" & e.newvalue & "'")
        Else
            dr = DataTables("表B").Find("仓库物料编号 = '" & e.oldvalue & "'")
        End If
        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

为什么？具体实例。

人家说的东西和你做的东西没有任何关联。