- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]CheckedListBox复选多选框的清除-全选-反选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89805)
-- 发布时间：2016/8/30 13:20:00
-- [求助]CheckedListBox复选多选框的清除-全选-反选
CheckedListBox复选多选框数据取自当前表的“名称”列，窗口afterload事件代码为：
Dim cmb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
cmb.ComboList = CurrentTable.DataTable.GetComboListString("名称")
求写复选多选框的清除-全选-反选代码。谢谢！
附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2016/8/30 14:43:00
--
认认真真看完帮助关于这个控件的用法：http://www.foxtable.com/webhelp/scr/0948.htm
-- 发布时间：2016/8/30 16:25:00
--
1、清除代码：
Dim lst As WinForm.CheckedListBox
lst = Forms("窗口1").Controls("CheckedListBox1")
For Index As Integer = 0 To lst.Items.Count - 1
lst.SetItemChecked(Index, False)
Next
2、全选代码：
Dim lst As WinForm.CheckedListBox
lst = Forms("窗口1").Controls("CheckedListBox1")
For Index As Integer = 0 To lst.Items.Count - 1
lst.SetItemChecked(Index, True)
Next
3、反选代码？？？
-- 发布时间：2016/8/30 16:51:00
--
Dim lst As WinForm.CheckedListBox
lst = Forms("窗口1").Controls("CheckedListBox1")
For Index As Integer = 0 To lst.Items.Count - 1
lst.SetItemChecked(Index, Not lst.GetItemChecked(Index))
Next