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

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

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

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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")

狐狸爸爸

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

加好友

发短信

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

Post By：2012/7/11 9:33:00 [显示全部帖子]

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

狐狸爸爸

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

加好友

发短信

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

Post By：2012/7/11 9:52:00 [显示全部帖子]

我有点糊涂了，没有看懂你的问题。

狐狸爸爸

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

加好友

发短信

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

Post By：2012/7/11 10:13:00 [显示全部帖子]

我明白了哦，很简单的：

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

dt = cmd.ExecuteReader()

if dt.DataRows.Count > 0 Then

Dim ss as String

Dim dr As DataRow = dt.DataRows(0)

For each dc As DataCol in dt.DataCols

ss = ss & "|" & dr(dc.name)

lst.ComboList = ss

Else

lst.ComboList = ""

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

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