主题：[求助]

参考

 

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

 代码不会有问题，有问题，请上传对应例子说明

1、你这段代码和选择的access一点关系也没有；

 

2、外部数据源的合并，请参考

 

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

 

 不会做，就请上传例子

叫你上传例子啊

 代码没问题，请上传例子

那请上传具体例子测试啊。

红色代码的空格，自己去掉，不会修改就上传例子

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    If Connections.Contains("test")
        Connections.Delete("test")
    End If
    Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False")
    Dim dt As DataTable
    Dim cmd As new SQLCommand
    cmd.Connecti onName = "test"
    cmd.CommandText = "SELECT * F rom {表A}"
    dt = cmd.ExecuteReader()
    For Each dr As DataRow In dt.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
    Connections.Delete("test")
End If

 去掉红色字的空格