以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65639)
--  作者：yjd
--  发布时间：2015/3/19 17:26:00
--  [求助]
版主您好，导入与目标表同名。怎样解决。
--  作者：Bin
--  发布时间：2015/3/19 17:28:00
--  
如果是和你项目里的表一样的, 请使用合并.

如果是另外的表,请把原来的表改名
--  作者：yjd
--  发布时间：2015/3/19 17:42:00
--  
版主，如果合并的两个表都有数据相同的学号列，其他列也相同列名，能否实现相同学号行不重复增加，其他同名列不覆盖，而是数据合并到一起。代码怎样写，谢谢。
--  作者：有点甜
--  发布时间：2015/3/19 17:48:00
--  

参考

 

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
--  作者：yjd
--  发布时间：2015/3/19 18:48:00
--  
版主，打开对话框合并指定文件代码怎样写，相同“学号”行不跳过，而是其他列数据合并而不覆盖。就是想不不同用户输入的一个学号下的内容汇总在一起。单位无局域网不能数据共享，所以想达到上述目的。
[此贴子已经被作者于2015/3/19 19:09:16编辑过]
--  作者：有点甜
--  发布时间：2015/3/19 19:28: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
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    Else
        fdr("第一列") &= "," & dr("第一列")
        fdr("第二列") &= "," & dr("第二列")
    End If
Next
--  作者：yjd
--  发布时间：2015/3/19 19:42:00
--  
目标基本实现，就是空值列加入了“，”，两个表相同的内容重复添加。
--  作者：有点甜
--  发布时间：2015/3/19 19:49: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
        fdr("第一列") = dr("第一列")
        fdr("第二列") = dr("第二列")
    Else
        fdr("第二列") &= iif(fdr.IsNull("第二列"), dr("第二列"), iif(fdr("第二列").contains(dr("第二列")) OrElse dr.IsNull("第二列"), "", "," & dr("第二列")))

    End If
Next
--  作者：yjd
--  发布时间：2015/3/19 20:37:00
--  
谢谢版主，我再试试。
--  作者：yjd
--  发布时间：2015/3/19 22:13:00
--  
版主您好！还是有问题，空值没有添加新内容，不同的内容数据没有合并。