标题：[求助]符合条件 显示列表框

Dim str1 as string = e.Form.Controls("ComboBox1").Value
Dim str2 as string = e.Form.Controls("ComboBox2").Value
lst.combolist = DataTables("基本信息").GetComboListString("物料名称", "工程名称 = '" & str1 & "'and 物料大类 = '" & str2 & "'")



帮我看看
lst.combolist = DataTables("基本信息").GetComboListString("物料名称", "工程名称 = '" & str1 & "'and 物料大类 = '" & str2 & "'")
这句不对

我的意思是 要列表框显示 符合 工程名称=("ComboBox1").Value 和
                                  物料大类=Controls("ComboBox2").Value
的条件 出现在列表 显示 物料名称/物料规格/物料型号 3个字段

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小爪仓库程序狐表.rar

Dim lst As WinForm.listBox = e.Form.Controls("ListBox1")
Dim str1 as string = e.Form.Controls("ComboBox1").Value
Dim str2 as string = e.Form.Controls("ComboBox2").Value
lst.combolist = DataTables("基本信息").GetComboListString("物料名称", "工程名称 = '" & str1 & "'and 物料大类 = '" & str2 & "'")

谢谢 ！要在列表框上 显示 物料名称/物料规格/物料型号 3个字段，怎么办？

Dim lst As WinForm.listBox = e.Form.Controls("ListBox1")
Dim T,Tj,str1,str2 as string
str1  = e.Form.Controls("ComboBox1").Value
str2  = e.Form.Controls("ComboBox2").Value
Tj = "工程名称 = '" & str1 & "'and 物料大类 = '" & str2 & "'"

Dim Arys As List(Of String())
Arys = DataTables("基本信息").GetUniqueValues(Tj, "物料名称","物料规格","物料型号")

For Each Ary As String() In Arys
    T = T & "|" & Ary(0) & "," & Ary(1) & "," & Ary(2)
Next

lst.combolist = T

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小爪仓库程序狐表.table

谢谢2位高手的解答：
但特别是 5楼的附件 我打开是好好的
  代码贴到我的文件上，就会出现错误提示：


此主题相关图片如下：qq121.jpg


是不是你们什么位置 设置了除错误提示？？再请教

把表传上 为什么我的会出现错误提示 ，你们就不会呢？？？？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小爪仓库程序狐表121.rar

ListItemFormat事件错误

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小爪仓库程序狐表121.table

原来如此！真的谢谢你，好妹妹！！