以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教老师如何点击某按钮后将A表的某列复制到B表的对应列中？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141284)
--  作者：初心不改再说未来
--  发布时间：2019/9/25 18:13:00
--  请教老师如何点击某按钮后将A表的某列复制到B表的对应列中？
如题。
窗口中有个table副本，想点击这个table中的某一行，然后再点击窗口的按钮，能实现将选中行复制到另外一个表的对应行里进行下一步操作

代码该肿么写？

搜半天帮助没找到~~~
--  作者：狐狸爸爸
--  发布时间：2019/9/25 22:40:00
--  
帮助：
http://www.foxtable.com/webhelp/topics/2292.htm

稍微改一下：
Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列
Dim r as Row = 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


[此贴子已经被作者于2019/9/25 22:40:39编辑过]