- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复选框全选问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151283)
-- 发布时间：2020/6/19 14:42:00
-- [求助]复选框全选问题
老师好，怎么设计一个按钮，让复选框全选呢
此主题相关图片如下：2018871843559715.png
-- 发布时间：2020/6/19 14:52:00
--
复选框是什么控件？
-- 发布时间：2020/6/19 14:58:00
--
是CheckedComboBox下的复选框，复选的是列
-- 发布时间：2020/6/19 15:01:00
--
这个控件不可能是CheckedComboBox。CheckedComboBox也没有办法全选
-- 发布时间：2020/6/19 15:07:00
--
此主题相关图片如下：g5lpdap6ei85$q0x6f7)7p7.png
-- 发布时间：2020/6/19 15:07:00
--
此主题相关图片如下：zh%zu$bo7%{u_znd9553wr.png
-- 发布时间：2020/6/19 15:09:00
--
e.sender.Items.Clear
For Each c As Col In Tables("计算表").Cols
e.sender.Items.add(c.name)
Next
-- 发布时间：2020/6/19 15:29:00
--
变通一下
dim s as string = ""
For Each c As Col In Tables("计算表").Cols
s = s & "," & c.name)
Next
e.form.controls("CheckedComboBox").text = s.trim(",")
-- 发布时间：2020/6/19 15:30:00
--
谢谢
-- 发布时间：2020/6/19 15:35:00
--
还是不行，出错