在窗口 afterload中 建了三个combobox Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2") Dim cb3 As WinForm.ComboBox = e.Form.Controls("ComboBox3") cb1.ComboList = DataTables("表A").GetComboListString("第一列")