Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("商品编号").Value
Dim sl As Double = e.Form.Controls("数量").Value
cmb.ComboList = DataTables("商品库存明细").GetComboListString("货格", "货品编号 = \'" & str & "\'and 可用库存 > \'" & sl & " \'")

我之前做的是，在商品库存明细中取得 货格的不重复值，后来数据格式变化了，一个货格里可能有n个批次，每个批次在明细中是一行 在人工选择该货格 只会选中其中一行，选不了该货格其他行。

现在的效果是

OW-01-03-B
CW-02-03-B
预期的效果是

OW-01-03-B    16 
OW-01-03-B     5 
CW-02-03-B     3  
CW-02-03-B     6
CW-02-03-B     14
CW-02-03-B     2

 货格              可用库存     

请问是要怎样做  

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("商品编号").Value
Dim sl As Double = e.Form.Controls("数量").Value
cmb.ComboList = DataTables("商品库存明细").sqlGetComboListString("货格 + \'   \' + 可用库存", "货品编号 = \'" & str & "\'and 可用库存 > \'" & sl & " \'")

sqlGetComboListString 也是取不重复值， 但我想列出所有符合 "货品编号 = \'" & str & "\'and 可用库存 > \'" & sl & " \' 的

比如

OW-01-03-B    16        wwcn201701  （在商品库存明细中本货格的第一行。）
OW-01-03-B     5         wwcn201702   （在商品库存明细中本货格的第二行。）
CW-02-03-B     3          wwcn201703
CW-02-03-B     6          wwcn201704
CW-02-03-B     14         wwcn201705
CW-02-03-B     2           wwcn201706

      货格           可用       批次     

假如用上面的代码或者用以前的，虽然能选货格，但是都会只选本货格第一行，扣库存也只会扣第一行，我想能列出所有行，然后选择

 那建议用表格

http://www.foxtable.com/webhelp/scr/2466.htm

感谢指导。