以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  复制不重复的数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128800)
--  作者：蓝蚂蚁
--  发布时间：2018/12/15 11:31:00
--  复制不重复的数据

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

如果要排除重复值，可以用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，谢谢老师
--  作者：有点蓝
--  发布时间：2018/12/15 13:51:00
--  
Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").Find("产品=\'" & Vals(i)(0) & "\' And 客户=\'" & Vals(i)(1) & "\' ")
    If dr Is Nothing Then
        dr = DataTables("接收表").AddNew()
        dr("产品") = Vals(i)(0)
        dr("客户") = Vals(i)(1)
    End If
Next