主题：[求助]

版主您好，导入与目标表同名。怎样解决。

如果是和你项目里的表一样的, 请使用合并.

版主，如果合并的两个表都有数据相同的学号列，其他列也相同列名，能否实现相同学号行不重复增加，其他同名列不覆盖，而是数据合并到一起。代码怎样写，谢谢。

参考

 

http://www.foxtable.com/help/topics/2137.htm

 

或者用类似代码

 

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
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    End If
Next

版主，打开对话框合并指定文件代码怎样写，相同“学号”行不跳过，而是其他列数据合并而不覆盖。就是想不不同用户输入的一个学号下的内容汇总在一起。单位无局域网不能数据共享，所以想达到上述目的。

 比如，可以这样写

 

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
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    Else
        fdr("第一列") &= "," & dr("第一列")
        fdr("第二列") &= "," & dr("第二列")
    End If
Next

目标基本实现，就是空值列加入了“，”，两个表相同的内容重复添加。

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
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    Else
        fdr("第二列") &= iif(fdr.IsNull("第二列"), dr("第二列"), iif(fdr("第二列").contains(dr("第二列")) OrElse dr.IsNull("第二列"), "", "," & dr("第二列")))

    End If
Next

谢谢版主，我再试试。

版主您好！还是有问题，空值没有添加新内容，不同的内容数据没有合并。