enter代码
Dim cpmc As WinForm.CheckedComboBox = e.Form.Controls("产品名称")Dim gpzt As WinForm.CheckedComboBox = e.Form.Controls("钢瓶状态")
gpzt.ComboList = DataTables("入库明细表").GetComboListString("钢瓶状态","产品名称 in ('" & cpmc.Text.Replace(",", "','") & "')")