- 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=110651)
-- 发布时间：2017/12/7 6:36:00
-- 请问全选与全清除怎么处理
老师，我设置了一个选择货品资料选择窗口，如下图
我在窗口中增加了“全选”与“全清”的功能按扭；
想实现点“全选”时则能将窗口右边的所有行都选择上打上勾；
如果点“全清”按扭时，则将已选择上的行的选择勾都去掉，变为没选择的状态；
请问老师这两个按钮处代码应该如何写？谢谢老师。
此主题相关图片如下：t5.png
此主题相关图片如下：t5.png-- 发布时间：2017/12/7 8:45:00
--
Dim t As Table = Tables("表A")
For Each r As Row In t.rows
r.checked = True
Next
-------------------
Dim t As Table = Tables("表A")
For Each r As Row In t.rows
r.checked = False
Next
-- 发布时间：2017/12/7 8:45:00
--
反选
Dim t As Table = Tables("表A")
For Each r As Row In t.rows
r.checked = not r.checked
Next
-- 发布时间：2017/12/7 23:47:00
--
谢谢老师。