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的编号不变的情况下，其它列变化，系统不做处理，请问应该如何处理？

 看看这个例子吧

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

为什么？具体实例。

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