- 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=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