Dim Vals As List(of String()) Vals =
DataTables("表B").GetUniqueValues("第一列 = '" &
Tables("表A").current("第一列") & "'", "产品","客户") For Each val As String() In Vals If DataTables("接收表").Find("产品='" & val(0) & "' And 客户='" & val(1) & "'") Is Nothing Then Dim dr As DataRow = DataTables("接收表").AddNew() dr("产品") = Val(0) dr("客户") = Val(1) End If Next