Foxtable(狐表)用户栏目专家坐堂 → 怎样将CheckedComboBox下拉的栏目全选或全清


  共有2245人关注过本帖树形打印复制链接

主题:怎样将CheckedComboBox下拉的栏目全选或全清

帅哥哟,离线,有人找我吗?
fvcfox
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:533 积分:5024 威望:0 精华:0 注册:2020/5/7 13:05:00
怎样将CheckedComboBox下拉的栏目全选或全清  发帖心情 Post By:2021/9/27 14:06:00 [只看该作者]

我的想法中在栏目中加一个“全选”,选中“全选”后可以将其他栏目都勾选,不选中时,其他栏目也不选中,但不知怎样写代码

 回到顶部
帅哥哟,离线,有人找我吗?
jialihaha
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:996 积分:6630 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2021/9/27 14:09:00 [只看该作者]

可以自己设计一个窗口实现

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107525 积分:546910 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部