主题：[求助]合并数据的问题！！！！！！

肯定是不能保存的，因为Fill之后，因为系统知识保存已经修改或新增的数据，Fill的数据等于是加载进来的数据，没有任何修改谈何保存？而且即使保存，也是保存回总公司啊？

Dim s As String = "Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=测试1(东区数据);Data Source=Chinese-f28c28f,1433"
If Connections.TryConnect(s) = True Then
    If Connections.Contains("总公司A") = False Then
        Connections.Add("总公司A",s)
    End If
    Tables("a").fill("select * from {人事档案}","分公司B",False)
    DataTables("a").DataRows.Clear
    DataTables("a").save
    Tables("b").fill("select * from {人事档案}","总公司A",False)
   
    Tables("a").StopRedraw
    For Each dr1 As DataRow In Tables("b").DataTable.DataRows
        Dim dr2 As DataRow = Tables("a").DataTable.AddNew()
        For Each dc As DataCol In Tables("a").DataTable.DataCols
            dr2(dc.Name) = dr1(dc.name)
        Next
    Next
    Tables("a").ResumeRredraw
       
    Dim Result As DialogResult
    Result = messagebox.show("同步完成,是否保存同步的数据至本地?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("a").save
        DataTables("b").save
    End If
Else
    MessageBox.Show("数据源无法连通!")
End If
e.sender.enabled = False

我举个例子给你而已，你可以用同样的方法，同步其他数据。

没有必要，你用的是Fill，可以重复使用那两个Table控件。

如果用SQLCommand的ExcuteReader，一个Table控件就可以解决。