主题：[求助] 合并表的问题

如果有两张表：A表有两列：姓名，地址 ，B表也有两列：名称，开发地址，想把这两张表合并成一张表：C,列名为：客户联系人，联系人地址。可以实现吗？

三个表中需要有唯一对应的关键字，比如 员工编号就可以！

 参考代码

 

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