以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样将CheckedComboBox下拉的栏目全选或全清  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172157)
--  作者：fvcfox
--  发布时间：2021/9/27 14:06:00
--  怎样将CheckedComboBox下拉的栏目全选或全清
我的想法中在栏目中加一个“全选”，选中“全选”后可以将其他栏目都勾选，不选中时，其他栏目也不选中，但不知怎样写代码
--  作者：jialihaha
--  发布时间：2021/9/27 14:09:00
--  
可以自己设计一个窗口实现
--  作者：有点蓝
--  发布时间：2021/9/27 14:14:00
--  
需要另外再加按钮处理“全选”或者“全不选”

“全选”：
Dim cmb As WinForm.CheckedComboBox
cmb = Forms("窗口1").Controls("CheckedComboBox1")
cmb.text = cmb.ComboList.replace("|",",")

“全不选”:
Dim cmb As WinForm.CheckedComboBox
cmb = Forms("窗口1").Controls("CheckedComboBox1")
cmb.text = nothing