- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 复选框列全选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40020)
-- 发布时间：2013/9/6 16:43:00
-- [求助] 复选框列全选
复选框列如何默认全选呢？
Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each dc As DataCol In DataTables("YWTYPE").DataCols
ckl.Items.Add(dc.Name)
Next
[此贴子已经被作者于2013-9-6 16:44:21编辑过]
-- 发布时间：2013/9/6 16:44:00
--
此主题相关图片如下：复选框列.png
-- 发布时间：2013/9/6 16:44:00
--
Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For Each dc As DataCol In DataTables("YWTYPE").DataCols
ckl.Items.Add(dc.Name)
Next
For i As Integer= 0 To ckl.items.count - 1
ckl.SetItemChecked(i,True)
Next
For Each dc As DataCol In DataTables("YWTYPE").DataCols
ckl.Items.Add(dc.Name)
Next
For i As Integer= 0 To ckl.items.count - 1
ckl.SetItemChecked(i,True)
Next
-- 发布时间：2013/9/6 16:45:00
--
非常感谢！