主题：如何把A数据源的数据保存到B数据源？

参考代码

http://www.foxtable.com/webhelp/scr/2137.htm

反过来写代码

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "SELECT * From {员工} where 1=2"
dt = cmd.ExecuteReader(True)
For Each dr As DataRow In DataTables("员工").DataRows
    If dt.Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then
        Dim nr As DataRow = dt.AddNew()
        For Each dc As DataCol In DataTables("员工").DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End If
Next
dt.save