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

如果修改代码，参考

 

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

 没看懂你发的问题，你要做什么功能？为什么要这样做？

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

 

方法就是你合并的方法。

 

去除重复这样改

 

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