以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制不重复的数据  (http://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