主题：[求助]代碼衝突，造成狐表停止工作怎麼解決

Dim r000 As Row = Tables("打辦登記表").Current
If e.Form.Controls("CheckBox7").Checked = True  Then
   If r000("流程標記") = 0 Then
     e.Form.Controls("CheckBox0").Checked = True
    ElseIf r000("流程標記") = 1 Then
     e.Form.Controls("CheckBox1").Checked = True
    ElseIf r000("流程標記") = 2 Then
     e.Form.Controls("CheckBox2").Checked = True
    ElseIf r000("流程標記") = 3 Then
     e.Form.Controls("CheckBox3").Checked = True
    ElseIf r000("流程標記") = 4 Then
     e.Form.Controls("CheckBox4").Checked = True
    ElseIf r000("流程標記") = 5 Then
     e.Form.Controls("CheckBox5").Checked = True
   End If
    e.Form.Controls("ComboBox1").Value = Nothing
    e.Form.Controls("ComboBox1").Enabled = False
    For ck As Integer = 0 To 6
    e.Form.Controls("CheckBox" & ck).Enabled = True
    Next
  Dim nm As String = e.Sender.Name
  Select Case nm
    Case "CheckBox0","CheckBox1","CheckBox2","CheckBox3","CheckBox4","CheckBox5","CheckBox6"
        If e.Sender.Checked Then
            e.Form.Controls("CheckBox0").Checked = (nm = "CheckBox0")
            e.Form.Controls("CheckBox1").Checked = (nm = "CheckBox1")
            e.Form.Controls("CheckBox2").Checked = (nm = "CheckBox2")
            e.Form.Controls("CheckBox3").Checked = (nm = "CheckBox3")
            e.Form.Controls("CheckBox4").Checked = (nm = "CheckBox4")
            e.Form.Controls("CheckBox5").Checked = (nm = "CheckBox5")  
            e.Form.Controls("CheckBox6").Checked = (nm = "CheckBox6")  
        End If
  End Select
Else
    For ck As Integer = 0 To 6
    e.Form.Controls("CheckBox" & ck).Checked = False
    e.Form.Controls("ComboBox1").Enabled = True
    e.Form.Controls("ComboBox1").Value = r000("編輯者")
    e.Form.Controls("CheckBox" & ck).Enabled = False
    Next
End If

 

 

以上紅色代碼，控件的默認選擇狀態與控件單選模式的代碼衝突，造成狐表停止工作，怎麼解決啊？？

此主题相关图片如下：004.jpg

程版，用你簡化的代碼也是一樣的問題，附件是原代碼及簡單代碼的簡單項目。

我的目的是：當CheckBox7選中時，CheckBox0-CheckBox6可選，并且從表A的流程標記列讀數據，流程標記列的值0-5，對應CheckBox0-5的選中狀態，CheckBox6默認就行，ComboBox1清空且控件不可編輯；CheckBox7非選中時，CheckBox0-6非選中並且控件不可編輯，ComboBox1輸入為編輯者列的值

附件上傳不了，再傳一次

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

用在窗口的全局事件中的CheckedChanged裡面，以對窗口的選中狀態進行判斷

放在chickbox7的CheckedChanged中只能對CheckBox7進行判斷，無法將CheckBox0-6進行模擬單選

已解決，將全局代碼只判斷CheckBox0-6，CheckBox7單獨判斷來處理