复选列表框取值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复选列表框取值？

共有7583人关注过本帖树形打印复制链接主题：复选列表框取值？

红颜

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

加好友

发短信

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

复选列表框取值？ 发帖心情

Post By：2013/2/27 11:36:00 [只看该作者]

Dim clb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
clb.Combolist = DataTables("明细表").GetComboListString("品名","打印 = 0")

1、上述代码将排除重复的“品名”，如何不排除重复的“品名”。

2、如何多列显示，如同时显示“编号，品名”，在一行显示。

狐狸爸爸

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

加好友

发短信

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

Post By：2013/2/27 11:41:00 [只看该作者]

参考：

http://www.foxtable.com/help/topics/0392.htm

Dim Arys As List(Of String())

Dim clb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
Arys = DataTables("订单").GetUniqueValues("打印 = 0", "编号","品名")
For Each Ary As String() In Arys

clb.items.Add(ary(0) & "," & ary(1))
Next

红颜

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

加好友

发短信

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

Post By：2013/2/27 15:12:00 [只看该作者]

以下是引用狐狸爸爸在2013-2-27 11:41:00的发言：

参考：

http://www.foxtable.com/help/topics/0392.htm

Dim Arys As List(Of String())

Dim clb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
Arys = DataTables("订单").GetUniqueValues("打印 = 0", "编号","品名")
For Each Ary As String() In Arys

clb.items.Add(ary(0) & "," & ary(1))
Next

请教：看了帮助，有些地方不明白。0和1是什么意思？如果提取从3列或4列，clb.items.Add(ary(0) & "," & ary(1))有何变化？

狐狸爸爸

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

加好友

发短信

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

Post By：2013/2/27 15:14:00 [只看该作者]

这属于编程基础，看看数组这一节：

http://www.foxtable.com/help/topics/0216.htm

红颜

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

加好友

发短信

等级：童狐帖子：254 积分：1963 威望：0 精华：0 注册：2013/2/6 19:09:00

Post By：2013/2/27 16:18:00 [只看该作者]

原来是这样：

Dim clb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1")
Dim Arys As List(Of String())
Arys = DataTables("SFMX").GetUniqueValues("打印 = 0 And [客户]='"& Tables("明细表").Current("客户") &"'", "编号","客户","产品名称")
For Each Ary As String() In Arys
clb.items.Add(ary(0) & "," & ary(1) & "," & ary(2))
Next

0=编号；1=客户；2=产品名称

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

主题：复选列表框取值？