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

不好意思是多了个end if 

搞糊涂了,应该这样.

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()
            r("单位") = dr("单位")
            r("规格") = dr("规格")
            r("批号") = dr("批号")
            r("吨位") = dr("吨位")
            r("库位") = dr("库位")
        End If
    End If
End Select