Dim cmc As WinForm.CheckedComboBox
Dim c As String
Dim d As String
c= e.Form.Controls("ComboBox1").text
cmc = e.Form.Controls("CheckedComboBox1")
cmc.ComboList = DataTables("用户分组").SQLGetComboListString("分组")
cmc.text = DataTables("用户分组").SQLGetComboListString("分组","用户 = '" & c & "'").replace("|",",")