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

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

End If

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

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