参与部门控件SelectedIndexChanged事件代码:
e.Form.Controls("CheckedComboBox1").ComboList = DataTables("表A").GetComboListString("员工","[部门] = '" & e.Sender.Value & "'")