Foxtable(狐表)用户栏目专家坐堂 → [求助]复选列表框


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

主题:[求助]复选列表框

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


加好友 发短信
等级:五尾狐 帖子:1014 积分:6763 威望:0 精华:0 注册:2014/2/12 20:14:00
[求助]复选列表框  发帖心情 Post By:2023/11/3 14:21:00 [显示全部帖子]

老师好,下面代码不起作用。

图片点击可在新窗口打开查看此主题相关图片如下:2023-11-03 14 16 10.png
图片点击可在新窗口打开查看

Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
For i As Integer = clist.Items.Count - 1 To 0 Step -1
    Tables(e.Form.Controls("ComboBox7").Text).Cols(i).Visible = not clist.GetItemChecked(i)
Next

 回到顶部