[求助]符合条件显示列表框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]符合条件显示列表框

共有21324人关注过本帖树形打印复制链接主题：[求助]符合条件显示列表框

hlxz

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：54 积分：569 威望：0 精华：1 注册：2009/4/19 21:29:00

[求助]符合条件显示列表框 发帖心情

Post By：2009/5/2 16:28:00 [只看该作者]

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

shxiaoya

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：191 积分：1442 威望：0 精华：2 注册：2008/9/7 21:30:00

Post By：2009/5/2 17:00:00 [只看该作者]

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

[此贴子已经被作者于2009-5-2 17:01:34编辑过]

hlxz

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：54 积分：569 威望：0 精华：1 注册：2009/4/19 21:29:00

Post By：2009/5/2 17:49:00 [只看该作者]

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

don

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2009/5/3 10:15:00 [只看该作者]

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