| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 2个表都是同一个外部数据源是否可用下面的方法合并？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33454) |
| -- 作者：wuxianzuoji41 -- 发布时间：2013/5/18 13:43:00 -- 2个表都是同一个外部数据源是否可用下面的方法合并？ 2个表都是同一个外部数据源是否可用下面的方法合并 将员工表1数据复制到员工表2 我用了下面的方法怎么不起作用呀 如果两个表的结构不同，可以参考下面的代码： Dim cmd As New
SQLCommand |
| -- 作者：Bin -- 发布时间：2013/5/18 14:03:00 -- 正常不会啊,除非你DT没数据 |
| -- 作者：wuxianzuoji41 -- 发布时间：2013/5/18 17:11:00 -- 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") Next Next ’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘这部分语句不执行 messagebox.show("成功导入客户列表里,请查阅!") |
| -- 作者：Bin -- 发布时间：2013/5/18 17:13:00 -- 说明你DT没有数据. SELECT * From {searchdata}并没有返回任何数据 |
| -- 作者：wuxianzuoji41 -- 发布时间：2013/5/18 17:19:00 -- 明白了，谢谢，确实是你的说的那个原因，我的那个searchdata我查了一下原来是查询表，所以数据库里一直没有数据，如果searchdata是查询表的情况下，这个方法是不是就不能用了 |
| -- 作者：Bin -- 发布时间：2013/5/18 17:22:00 -- 你也可以执行整段SQL查询语句来获得这个查询表啊.. 或者直接datatables("searchdata")
|
| -- 作者：wuxianzuoji41 -- 发布时间：2013/5/18 17:53:00 -- bin,如果我要把一个窗口中的表table1的当前帅选的记录，手动编码合并到另外一datatables2中去，代码该怎么写？ |
| -- 作者：Bin -- 发布时间：2013/5/18 17:55:00 -- Dim dt As Tables("窗口1_table1") For Each dr As Row In dt.Rows 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") Next Next
|