- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助：窗口副本表的复选框的全选与反选问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153421)
-- 发布时间：2020/8/10 18:11:00
-- 求助：窗口副本表的复选框的全选与反选问题
窗口：“销售部”；
窗口表：“客户信息表”，设为了副本；
窗口中有个按钮：“全选”
如下图：
此主题相关图片如下：1.png
希望达到的效果：当点击“全选”按钮时，窗口表的所有复选框能都打上勾；
我在按钮“全选”的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