Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】Button的Click事件


  共有3187人关注过本帖树形打印复制链接

主题：【求助】Button的Click事件
帅哥哟，离线，有人找我吗？
好吧
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		【求助】Button的Click事件  发帖心情 Post By：2016/12/6 15:30:00 [只看该作者]

请问老师，如果我希望单击当前窗口(窗口1)中button按钮，能够将当前窗口中table控件（table1）的数据（也就是绑定表的数据）复制到另一个窗口（窗口2）中的table控件（table2）中，请问老师Button的Click事件代码该怎么写？？请老师赐教，谢谢！！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/6 16:08:00 [只看该作者]

我的窗口2中有table1控件啊，为什么会有下面的编译错误？？
编译错误：未声明名称tables(窗口2_table1)
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/6 16:09:00 [只看该作者]

编译错误：未声明名称"窗口2_table1"

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/6 16:17:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/1906.htm

 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/6 17:24:00 [只看该作者]

老师，编译错误：未声明名称"窗口2_table1"  这个错误我还是改不了，请老师帮忙看看，谢谢啦！！
[此贴子已经被作者于2016/12/19 20:58:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/7 9:39:00 [只看该作者]

老师，我在临时表中加了一列逻辑列，我想有勾到的列才复制过去，代码该怎么改呢？请老师赐教，谢谢！！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/7 10:02:00 [只看该作者]

多谢老师

 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询