以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助:窗口副本表的复选框的全选与反选问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153421) |
-- 作者:昱飞哥 -- 发布时间:2020/8/10 18:11:00 -- 求助:窗口副本表的复选框的全选与反选问题 窗口:“销售部”; 窗口表:“客户信息表”,设为了副本; 窗口中有个按钮:“全选” 如下图: 希望达到的效果:当点击“全选”按钮时,窗口表的所有复选框能都打上勾; 我在按钮“全选”的click事件中写了如下代码: For Each r As Row In Tables("销售部_客户信息表").rows r.checked = True Next 发现窗口表的复选框没有打勾,请教老师,这是啥情况? |
-- 作者:有点蓝 -- 发布时间:2020/8/10 20:18:00 -- 1、表名不正确 2、有其它代码影响了
|
-- 作者:昱飞哥 -- 发布时间:2020/8/10 21:32:00 -- 蓝老师,这个事情是这样的: 我要实现的效果是:"Button99"默认标题是“全选”,点击"Button99",全选Tables("开发者主控窗口_客户信息表"),并且"Button99"的标题变成“反选”,再点击,就反选Tables("开发者主控窗口_客户信息表"),并且"Button99"的标题变成“全选” 我本来写的代码是: If e.Form.Controls("Button99").text = "全选" Then For Each r As Row In Tables("开发者主控窗口_客户信息表").rows r.checked = True Next e.Form.Controls("Button99").text = "反选" End If If e.Form.Controls("Button99").text = "反选" Then For Each r As Row In Tables("开发者主控窗口_客户信息表").rows r.checked = False Next e.Form.Controls("Button99").text = "全选" End If 这样一运行的话,就会出现上面的问题。 看了您说的话,后面我把代码改成下面这样: If e.Form.Controls("Button99").text = "全选" Then For Each r As Row In Tables("开发者主控窗口_客户信息表").rows r.checked = True Next e.Form.Controls("Button99").text = "反选" Else For Each r As Row In Tables("开发者主控窗口_客户信息表").rows r.checked = False Next e.Form.Controls("Button99").text = "全选" End If 运行就ok了,但是造成这个问题的原因到底是啥呢? |
-- 作者:有点蓝 -- 发布时间:2020/8/10 21:54:00 -- 基础问题:http://www.foxtable.com/webhelp/topics/0223.htm |