2个表都是同一个外部数据源是否可用下面的方法合并？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

2个表都是同一个外部数据源是否可用下面的方法合并

将员工表1数据复制到员工表2

我用了下面的方法怎么不起作用呀

如果两个表的结构不同，可以参考下面的代码：

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

正常不会啊,除非你DT没数据

bin 帮我看看看我的哪里有错误，我的画横线的部分语句不执行呀

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim sCols() As String = {"Name", "Address"}

Dim dCols() As String = {"cCompany", "cAddress"}

cmd.C

cmd.CommandText = "SELECT * From {searchdata}"

dt = cmd.ExecuteReader()

messagebox.show("222")

'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""这部分语句不执行

For Each dr As DataRow In dt.DataRows

messagebox.show("4444")

Dim nr As DataRow = DataTables("Client").AddNew()

messagebox.show("1111")

For i As Integer =0 To sCols.Length -1

nr(dCols(i)) = dr(sCols(i))

messagebox.show("333")

’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘这部分语句不执行

messagebox.show("成功导入客户列表里,请查阅!")

说明你DT没有数据. SELECT * From {searchdata}并没有返回任何数据

明白了，谢谢，确实是你的说的那个原因，我的那个searchdata我查了一下原来是查询表，所以数据库里一直没有数据，如果searchdata是查询表的情况下，这个方法是不是就不能用了

你也可以执行整段SQL查询语句来获得这个查询表啊..

或者直接datatables("searchdata")

bin,如果我要把一个窗口中的表table1的当前帅选的记录，手动编码合并到另外一datatables2中去，代码该怎么写？

Dim dt As Tables("窗口1_table1")