- 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=82649)
-- 发布时间：2016/3/22 10:56:00
-- CheckedListBox求助
此主题相关图片如下：12121.png
-- 发布时间：2016/3/22 11:10:00
--
systemready = False
If e.Sender.SelectedValue = "全部"
For i As Integer = 0 To e.Sender.Items.Count - 1
e.Sender.SetItemChecked(i, e.Checked)
Next
End If
If e.Sender.SelectedValue = "非空"
For i As Integer = 0 To e.Sender.Items.Count - 1
If e.sender.Items(i) <> "全部" AndAlso e.sender.Items(i) <> "空值" Then
e.Sender.SetItemChecked(i, e.Checked)
Else
e.Sender.SetItemChecked(i, False)
End If
Next
End If
If e.Sender.SelectedValue = "空值"
For i As Integer = 0 To e.Sender.Items.Count - 1
If e.sender.Items(i) <> "全部" AndAlso e.sender.Items(i) <> "非空" Then
e.Sender.SetItemChecked(i, e.Checked)
Else
e.Sender.SetItemChecked(i, False)
End If
Next
End If
systemready = True