共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]复选列表框
1楼
风声 发表于：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
2楼
有点蓝 发表于：2023/11/3 14:28:00调试
Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1") msgbox(e.Form.Controls("ComboBox7) For i As Integer = clist.Items.Count - 1 To 0 Step -1 msgbox("i=" & i & ",Checked=" & (not clist.GetItemChecked(i))) Tables(e.Form.Controls("ComboBox7").Text).Cols(i).Visible = not clist.GetItemChecked(i) Next |
共2 条记录, 每页显示 10 条, 页签:
[1]