类似这种:复选框Enter事件中加入代码:
Dim cmb As WinForm.checkedComboBox = e.SenderDim str As string = e.Form.Controls("textbox1").Valuecmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = '" & str & "'")