以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么从表A的某行数据通过按钮和其他方式复制到表B  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43328)
--  作者：yangwenghd
--  发布时间：2013/12/4 14:58:00
--  怎么从表A的某行数据通过按钮和其他方式复制到表B
  怎么从表A的某行数据通过按钮和其他方式复制到表B
比如我在表A里面筛选出一行或者多行后 在通过设计按钮或者其他什么的 复制到表B里面
--  作者：狐狸爸爸
--  发布时间：2013/12/4 15:01:00
--  

可以看看这个：
http://www.foxtable.com/help/topics/2292.htm


稍微改一下，就可以做成按钮的代码，例如将表A当前行的数据复制到表B:
 
Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列
Dim r As DataRow = Tables("表A").Current
Dim dr As DataRow = DataTables("表B").AddNew
For i As Integer = 0 To nma.Length - 1
    dr(nmb(i)) = r(nma(i))
Next