主题：复制不重复的数据

帮助有如下代码，排除重复值，但是排除来源表的重复值，

如果要排除重复值，可以用GetValues获得不重复的值，然后再填充：

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("接收表").AddNew()
dr("产品") = Vals(i)(0)
dr("客户") = Vals(i)(1)
Next

如何修改代码，才能实现如下的功能：接收表有数据与来源表有重复的，就排除重复的，再把不重复的数据从来源表复制到接收表

来源表     接收表

1          1

2

3    

如上面，接收表有1，则从来源表中复制2和3，谢谢老师