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

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