主题：[求助]数据加载，合并问题

如果修改代码，参考

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"列名1", "列名2"}
Dim dCols() As String = {"列名A", "列名B"}
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SELECT DISTINCT 列名1,列名2 From {员工}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Select("", "列名1 desc")
    Dim nr As DataRow = DataTables("员工").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next

此主题相关图片如下：1.jpg

看到教程帮助里面有这一章，第一部分的代码是讲的如何去除重复。第二部分讲的是合并部分列。所以想到合并部分列，并判断去除重复，等于两段代码的功能都实现，要怎么样写？

如果不想修改原来的数据，那就自己做一个数据，把数据拷贝过来用就好了。

方法就是你合并的方法。

去除重复这样改

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"列名1", "列名2"}
Dim dCols() As String = {"列名A", "列名B"}
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SELECT 列名1,列名2 From {员工}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Select("", "列名1 desc")
    Dim nr As DataRow = DataTables("员工").find("列名A = '" & dr("列名1") & "' and 列名B = '" & dr("列名2") & "'")
    If nr Is Nothing Then nr = DataTables("员工").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next

如果你在sqlserver里面新建一个数据库。你还可以用主从同步的方式

https://www.baidu.com/baidu?wd=sqlserver+%E4%B8%BB%E4%BB%8E+%E5%90%8C%E6%AD%A5

或者，直接用sql语句同步两个数据库的数据。http://www.runoob.com/sql/sql-insert-into-select.html