以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]复选列表框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190195)

--  作者:江南小镇
--  发布时间:2024/1/23 17:51:00
--  [求助]复选列表框
老师,下面按钮代码我想设置在控件Click事件里,谢谢老师帮我改一下。

Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
    e.Form.Controls("Table2").Table.Cols(clist.items(i)).Visible = clist.GetItemChecked(i)
Next
[此贴子已经被作者于2024/1/23 18:56:20编辑过]

--  作者:有点蓝
--  发布时间:2024/1/23 20:23:00
--  
放到ItemCheck事件