物料名称复选框代码

Dim cmb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox3")
cmb.ComboList = DataTables("库存表").GetComboListString("产品","是否领取=\'未领取\' and 操作类型=\'入库操作\'")

物料编号复选框代码

Dim cp As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox3")
Dim xlh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox4")
Dim str As String = e.Form.Controls("CheckedComboBox3").Value
xlh.ComboList = DataTables("库存表").GetComboListString("序列号", "产品 = \'" & str & "\'and 是否领取=\'未领取\'")

求助：

当物料名称只选择一种的时候，对应的所有物料编号可以全部显示出来。

问题：

当物料名称多选的时候，对应的所有物料编号没有显示出来，且为空白。

求解：如何将拆选代码更好进行组合

实现物料名称单选或者多选的时候，对应的物料编号都可以正确显示出来。

谢谢！