你的设计很乱,有的表是两列,分别为"型号"和"规格",有的表却合成了一列"型号规格"
还有代码是根据产品分类框的内容来找出该产品的型号,不是根据型号框输入的内容来找型号。
代码大概是:
Dim cmb As WinForm.ComboBoxcmb = e.SenderDim str As String = e.Form.Controls("产品分类").Valuecmb.ComboList = DataTables("成品仓").GetComboListString("型号", "产品分类 = '" & str & "'")