主题：[讨论]学习狐表--关于不同表　同步录入　如何实现?

用find怎么不行呢?你试试这个代码.

Select Case e.DataCol.Name
    Case "单位" ,"规格","批号","吨位","库位"
        Dim dr As DataRow = e.DataRow
        Dim Filter As String
        Filter = "单位 = '" & dr("单位") & "' And 规格 ='" & dr("规格") & "' And 批号 ='" & dr("批号") & "' And 吨位='" & dr("吨位") & "'And 库位='" & dr("库位") &"'"
        Dim dr1 As DataRow = DataTables("总库存").Find(Filter)
        If dr1 Is Nothing Then
            Dim r As DataRow = DataTables("总库存").AddNew()
            dr1("单位") = r("单位")
            dr1("规格") = r("规格")
            dr1("批号") = r("批号")
            dr1("吨位") = r("吨位")
            dr1("库位") = r("库位")
        End If
    End If
End Select