主题：选择下拉框能列出所有值 （包含重复值） + 统计值

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 & " '")

 那建议用表格

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