Dim Vals As List(of String()) Vals = DataTables("来源表").GetValues("产品|客户") For i As Integer = 0 To Vals.Count - 1 if DataTables("接收表").Find("产品 = '" & Vals(i)(0) & "' And 客户 = '" & Vals(i)(1) & "'") Is Nothing then Dim dr As DataRow = DataTables("接收表").AddNew() dr("产品") = Vals(i)(0) dr("客户") = Vals(i)(1) end if Next