Dim cmd2 As New SQLCommand Dim dtb2 As DataTable Dim cmb2 As WinForm.CheckedComboBox cmd2.C cmd2.CommandText = "SELECT DISTINCT 咨询专业 F rom {咨询专业}" dtb2 = cmd2.ExecuteReader() cmb2 = e.Form.Controls("CheckedComboBox1") cmb2.ComboList= dtb2.GetComboListString("咨询专业")