我 在我的表内创建了一个窗口，在窗口的checkedchanged事件内写：
Dim nm As String = e.Sender.Name
Select Case nm
Case "普通","高速"
If e.Sender.Checked Then
e.Form.Controls("普通").Checked = (nm = "普通")
e.Form.Controls("高速").Checked = (nm = "高速")
End If
Case "checkbox3","checkbox4"
If e.Sender.Checked Then
e.Form.Controls("checkbox3").Checked = (nm = "checkbox3")
e.Form.Controls("checkbox4").Checked = (nm = "checkbox4")
End If
Case "CheckBox5","CheckBox6"
If e.Sender.Checked Then
e.Form.Controls("CheckBox5").Checked = (nm = "CheckBox5")
e.Form.Controls("CheckBox6").Checked = (nm = "CheckBox6")
End If
Case "CheckBox1","CheckBox2"
If e.Sender.Checked Then
e.Form.Controls("CheckBox1").Checked = (nm = "CheckBox1")
e.Form.Controls("CheckBox2").Checked = (nm = "CheckBox2")
End If
End Select
让其4组 checkBOX 互斥！但是问题出现了：虽然在窗口内互斥 了，单没有在表内反应出来（即我选择了checkbox3，之后我又选择了checkbox4，虽然在窗口内体现出来checkbox3取消被选择的状态了！但是表内相对应checkbox3的 列却没有被取消，对应checkbox4的逻辑列，也被选中了） 请赐教！！！！怎么去实现！！
加好友 
发短信
Post By：2015/5/30 10:33:00 [显示全部帖子]
