以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】Button的Click事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93761)

--  作者:好吧
--  发布时间:2016/12/6 15:30:00
--  【求助】Button的Click事件
请问老师,如果我希望单击当前窗口(窗口1)中button按钮,能够将当前窗口中table控件(table1)的数据(也就是绑定表的数据)复制到另一个窗口(窗口2)中的table控件(table2)中,请问老师Button的Click事件代码该怎么写??请老师赐教,谢谢!!
--  作者:有点蓝
--  发布时间:2016/12/6 15:53:00
--  
for each r as row in tables("窗口1_table1").rows
   dim dr as datarow = tables(窗口2_table1).addnew
   dr("列1") = r("列1")
   dr("列2") = r("列2")
next

--  作者:好吧
--  发布时间:2016/12/6 16:08:00
--  
我的窗口2中有table1控件啊,为什么会有下面的编译错误??
编译错误:未声明名称tables(窗口2_table1)


--  作者:好吧
--  发布时间:2016/12/6 16:09:00
--  
编译错误:未声明名称"窗口2_table1"
--  作者:有点蓝
--  发布时间:2016/12/6 16:17:00
--  
http://www.foxtable.com/webhelp/scr/1906.htm
--  作者:好吧
--  发布时间:2016/12/6 17:24:00
--  
老师,编译错误:未声明名称"窗口2_table1"  这个错误我还是改不了,请老师帮忙看看,谢谢啦!!
[此贴子已经被作者于2016/12/19 20:58:06编辑过]

--  作者:有点蓝
--  发布时间:2016/12/6 17:32:00
--  
窗口必须打开才能使用窗口里面的控件,所以必须2个窗口都处于打开常态

For Each r As Row In Tables("窗口1_table1").rows
    Dim dr As DataRow = DataTables("临时表").addnew
    dr("德国编码") = r("德国编码")
    dr("料品名称") = r("料品名称")
Next

--  作者:好吧
--  发布时间:2016/12/7 9:39:00
--  
老师,我在临时表中加了一列逻辑列,我想有勾到的列才复制过去,代码该怎么改呢?请老师赐教,谢谢!!
--  作者:有点蓝
--  发布时间:2016/12/7 9:56:00
--  

For Each r As DataRow In Tables("窗口1_table1").DataTable.Select("逻辑列=true")
    Dim dr As DataRow = DataTables("临时表").addnew
    dr("德国编码") = r("德国编码")
    dr("料品名称") = r("料品名称")
Next

--  作者:好吧
--  发布时间:2016/12/7 10:02:00
--  
多谢老师