两个表有选择的合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两个表有选择的合并

共有7524人关注过本帖树形打印复制链接主题：两个表有选择的合并

xrz

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：712 威望：0 精华：0 注册：2015/3/12 15:35:00

两个表有选择的合并 发帖心情

Post By：2015/3/12 16:05:00 [只看该作者]

假设有两张表：A表有多列，B表也有多列。A表中有三列中的某三个单元格在B表中有完全相同的单元格对应，想把这两张表合并成一张表：C 。要求在B表中和A表完全相同的多行中选一行，选中的这一行中和A表不相同的单元格加到A表中成为C表。可以实现吗？

[此贴子已经被作者于2015/3/29 9:54:05编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 16:14:00 [只看该作者]

呃，肯定可以实现，问题是你怎么选择啊，一次生成一行么？

再有，请上传具体的例子。

xrz

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：111 积分：712 威望：0 精华：0 注册：2015/3/12 15:35:00

Post By：2015/3/12 16:29:00 [只看该作者]

[此贴子已经被作者于2015/3/12 18:19:46编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/12 16:37:00 [只看该作者]

代码

For Each dr As DataRow In DataTables("表A").Select("第一列 Is not null")
    Dim fdr As DataRow = DataTables("表C").Find("第一列 = '" & dr("第一列") & "' and 第二列 = '" & dr("第二列") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表C").AddNew
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    End If
    Dim ffdr As DataRow = DataTables("表C").Find("第一列 = '" & dr("第一列") & "' and 第二列 = '" & dr("第二列") & "'")
    If ffdr IsNot Nothing Then
        fdr("第三列") = dr("第三列")
    End If
Next