在CheckedListBox控件的ItemCheck事件中写了如下代码：
Dim tzsx As WinForm.RadioButton = e.Form.Controls("tiaozhengliedeshunxuRadioButton")
If tzsx.Checked Then
If e.Checked Then
Dim cst As WinForm.CheckedListBox = e.sender
For i As Integer = 0 To cst.Items.count - 1
If i <> e.Index Then
cst.SetItemChecked(i, False)
End If
Next
End If
End If
Dim t As Table = e.Form.controls("Table1").Table
t.Select(0,e.Sender.SetItemChecked)
t.LeftVisibleCol = e.Sender.SetItemChecked
运行后出错，看看哪有问题？
此主题相关图片如下：58777.jpg
此主题相关图片如下：588888.jpg
[此贴子已经被作者于2017/12/16 0:36:25编辑过]
加好友 
发短信
Post By：2017/12/16 0:34:00 [只看该作者]
