主题：[求助]组合复选框判断问题

按钮代码

Dim s As String = "," & e.Form.Controls("CheckedComboBox1").value & ","
For i As Integer = 1 To 5
    e.Form.Controls("CheckBox" & i).Checked = s.Contains("," & e.Form.Controls("CheckBox" & i).Text & ",")
Next