以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 合并表的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64573)
--  作者：czgtiger
--  发布时间：2015/2/24 7:45:00
--  [求助] 合并表的问题
如果有两张表：A表有两列：姓名，地址 ，B表也有两列：名称，开发地址，想把这两张表合并成一张表：C,列名为：客户联系人，联系人地址。可以实现吗？
--  作者：新福星
--  发布时间：2015/2/24 8:36:00
--  
三个表中需要有唯一对应的关键字，比如 员工编号就可以！
--  作者：有点甜
--  发布时间：2015/2/24 9:42:00
--  

 参考代码

 

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

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