- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]两条数据如何合并成一条数据？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143610)
-- 发布时间：2019/11/29 12:57:00
-- [求助]两条数据如何合并成一条数据？
如下图所示，用代码实现，谢谢！
此主题相关图片如下：$4t}0h{g0j{{z)$075)er5l.png
[此贴子已经被作者于2019/11/29 13:04:52编辑过]
-- 发布时间：2019/11/29 13:50:00
--
大概这样
Dim dr As DataRow
For Each r2 As Row In Tables("表A").rows
dr = DataTables("表B").find("第一列=\'" & r2("第一列") & "\'")
If dr Is Nothing Then dr = DataTables("表B").addnew
For Each c As Col In Tables("表B").cols
If dr.isnull(c.name) Then dr(c.name) = r2(c.name)
Next
Next