[求助]关于ListBox控件的一个用法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于ListBox控件的一个用法

共有10274人关注过本帖树形打印复制链接主题：[求助]关于ListBox控件的一个用法

raystar27

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

加好友

发短信

等级：婴狐帖子：54 积分：581 威望：0 精华：0 注册：2012/5/8 11:16:00

[求助]关于ListBox控件的一个用法 发帖心情

Post By：2012/7/11 7:52:00 [只看该作者]

如果说我想把一个字段从数据库里提取出来的做法应该是

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox")

cmd.C

cmd.CommandText = "SELECT dbjh1 From kfpt_daa051 "

dt = cmd.ExecuteReader()

lst.Combolist = dt.GetComboListString("dbjh1")

这样的话所有的dbjh1就提取出来并展示到ListBox里面了。但是如果我想提取一行的多个列的话该怎么办？比如

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox")

cmd.C

cmd.CommandText = "SELECT dbjh1,dbjh2,dbjh3,dbjh4,dbjh5,dbjh6,dbjh7 From kfpt_daa051 where jh = '12M190-160' "

dt = cmd.ExecuteReader()

lst.Combolist = dt.GetComboListString这句话应该怎么想，如果用到遍历的话应该怎么写？或者有其他的简单办法么？谢谢啦~~

don

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

加好友

发短信

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

Post By：2012/7/11 8:06:00 [只看该作者]

Dim sql ,s1,s2 As String

Dim Lms As String() ={"dbjh1","dbjh2","dbjh3","dbjh4","dbjh5","dbjh6","dbjh7"}

s1=" as A From {kfpt_daa051} where jh = '12M190-160' "

For Each s2 In Lms

sql+ = " Union select " & s2 & s1

Dim cmd As New SQLCommand

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox")

cmd.C '數據源

cmd.CommandText = sql.Substring(7)

lst.Combolist = cmd.ExecuteReader().GetComboListString("A")

[此贴子已经被作者于2012-7-11 8:19:48编辑过]

raystar27

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

加好友

发短信

等级：婴狐帖子：54 积分：581 威望：0 精华：0 注册：2012/5/8 11:16:00

回复：（don）Dim sql ,s1,s2 As StringDim Lms As St... 发帖心情

Post By：2012/7/11 8:50:00 [只看该作者]

有点没看懂~~就是把那几个字段存放在一个数组里是吧？然后把每一个字段都放在lst.Combolist里面？试了下~~不知道哪有问题~~

don

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

加好友

发短信

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

Post By：2012/7/11 8:57:00 [只看该作者]

你看看合成的SQL是什麼就知道了

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/11 8:58:00 [只看该作者]

cmd.Connection Name = "数据源"

cmd.CommandText = "select ([产品] + ',' + [客户]) As a From {订单}"

dt = cmd.ExecuteReader()

lst.Combolist = dt.GetComboListString("a")

[此贴子已经被作者于2012-7-11 8:58:22编辑过]

don

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

加好友

发短信

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

Post By：2012/7/11 9:02:00 [只看该作者]

以下是引用狐狸爸爸在2012-7-11 8:58:00的发言：

cmd.Connection Name = "数据源"

cmd.CommandText = "select ([产品] + ',' + [客户]) As a From {订单}"

dt = cmd.ExecuteReader()

lst.Combolist = dt.GetComboListString("a")

哈哈,這個簡單,想複雜了

[此贴子已经被作者于2012-7-11 8:58:22编辑过]

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/7/11 9:11:00 [只看该作者]

牛,SQL语句弄会了,做什么都简单.

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/11 9:20:00 [只看该作者]

漏掉一个关键词：

cmd.Connection Name = "数据源"

cmd.CommandText = "select Distinct ([产品] + ',' + [客户]) As a From {订单}"

dt = cmd.ExecuteReader()

lst.Combolist = dt.GetComboListString("a")

raystar27

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

加好友

发短信

等级：婴狐帖子：54 积分：581 威望：0 精华：0 注册：2012/5/8 11:16:00

回复：（狐狸爸爸）Dim cmd As New SQLCommandDim... 发帖心情

Post By：2012/7/11 9:22:00 [只看该作者]

cmd.CommandText = "select ([产品] + ',' + [客户]) As a From {订单}"

狐爸，中间的那个' ,'木有看懂~~这样的话产品和客户就都能存放在a里面啦？不需要数组啦？

raystar27

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

加好友

发短信

等级：婴狐帖子：54 积分：581 威望：0 精华：0 注册：2012/5/8 11:16:00

回复：（狐狸爸爸）漏掉一个关键词： &... 发帖心情

Post By：2012/7/11 9:26:00 [只看该作者]

cmd.C

cmd.CommandText = "select Distinct (dbjh1,dbjh2) As a From kfpt_daa051 where jh = '12M190-160'"

dt = cmd.ExecuteReader()

lst.Combolist = dt.GetComboListString("a")

这样写有错误~~

下一主题 >> << 上一主题

总数 19 1 2 下一页

主题：[求助]关于ListBox控件的一个用法