以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从一张表中导出数据到另一张表,关于重复值的处理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145615)

--  作者:零号柴油
--  发布时间:2020/2/2 14:35:00
--  从一张表中导出数据到另一张表,关于重复值的处理

各位老师,请教一个问题:我有一个原始的数据来源表格,一个人的信息分布在多条数据里面,现在想合并这些数据,形成一条完整的信息导入到另一个表里面,不知道如何弄!请指教!


图片点击可在新窗口打开查看此主题相关图片如下:数据来源表.png
图片点击可在新窗口打开查看

 

通过合并数据,去除重复值以后,形成下面的这个新表格

 


图片点击可在新窗口打开查看此主题相关图片如下:数据去重表.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2020/2/2 21:57:00
--  
比如

Dim dr2 As DataRow
For Each dr1 As DataRow In DataTables("来源表").datarows
    dr2 = DataTables("目的表").find("姓名=\'" & dr1("姓名") & "\'")
    If dr2 Is Nothing Then
        dr2 = DataTables("目的表").AddNew()
    End If
    For Each dc As DataCol In DataTables("来源表").DataCols
        If  dr2.isnull(dc.Name) Then
            dr2(dc.Name) = dr1(dc.name)
        End If
    Next
Next