能否给GetComboListString 增加一个排序参数? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能否给GetComboListString 增加一个排序参数?

共有16847人关注过本帖树形打印复制链接主题：能否给GetComboListString 增加一个排序参数?

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

能否给GetComboListString 增加一个排序参数? 发帖心情

Post By：2009/11/15 17:05:00 [只看该作者]

GetComboListString(ColumnName，Filter)

ColumnName：列名称，从此列中提取不重复的值。
Filter: 可选参数，指定一个条件表达式，只返回符合此条件的值。

能否给GetComboListString 增加一个排序参数?
就如同:GetComboListString(ColumnName，Filter,Sort)

Tables("订单").Cols("客户").ComboList = DataTables("客户").GetComboListString("客户名称","",id)

[此贴子已经被狐狸爸爸于2009-11-16 16:50:01编辑过]

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/11/15 17:13:00 [只看该作者]

记得老六说不行的。

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/11/15 17:46:00 [只看该作者]

以下是引用hnaysx在2009-11-15 17:34:00的发言：

请问客户名称相同的 ID 是否相同？

如果是一一对应应该可以，如果不是一一对应，得到的不重复的客户名称使用那一条记录的ID?

[此贴子已经被作者于2009-11-15 17:35:22编辑过]

ID不同,我这儿的ID就是排序列

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/11/15 17:46:00 [只看该作者]

以下是引用czy在2009-11-15 17:13:00的发言：
记得老六说不行的。

目录树的排序解决了,但是列表项的排序并没有解决

狐狸爸爸

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

加好友

发短信

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

Post By：2009/11/16 8:31:00 [只看该作者]

呵呵，这个加不了的

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/11/16 10:34:00 [只看该作者]

这个狐爸总是这么小气，那咱们就自己做一个排序，仅供参考：

Dim g As New GroupTableBuilder("lb", DataTables("客户"))
g.Groups.AddDef("客户名称")
g.Build()

dim p0 as String
dim p as String = DataTables("客户").GetComboListString("客户名称")
For n As integer = p.split("|").length- 1 to 0 step -1   ' '这是降序! 升序这样 0 to p.split("|").length- 1
    p0 = p0 & "|" & p.split("|")(n)
Next
Tables("订单").Cols("客户").ComboList = p0    '或: p0.substring(1) 》删除第一个 "|"  符号
MainTable = Tables("订单")

只是汉字的排序，有个多音字的现象，如：重是无法排到拼音 c 开头的里面，而是排到 z 开头的拼音里面。

[此贴子已经被作者于2009-11-16 10:48:32编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/11/16 11:14:00 [只看该作者]

以下是引用mr725在2009-11-16 10:34:00的发言：
这个狐爸总是这么小气，那咱们就自己做一个排序，仅供参考：

Dim g As New GroupTableBuilder("lb", DataTables("客户"))
g.Groups.AddDef("客户名称")
g.Build()

dim p0 as String
dim p as String = DataTables("lb").GetComboListString("客户名称")
For n As integer = p.split("|").length- 1 to 0 step -1   ' '这是降序! 升序这样 0 to p.split("|").length- 1
    p0 = p0 & "|" & p.split("|")(n)
Next
Tables("订单").Cols("客户").ComboList = p0    '或: p0.substring(1) 》删除第一个 "|"  符号
MainTable = Tables("订单")

只是汉字的排序，有个多音字的现象，如：重是无法排到拼音 c 开头的里面，而是排到 z 开头的拼音里面。

[此贴子已经被作者于2009-11-16 10:48:32编辑过]

[此贴子已经被作者于2009-11-16 11:23:20编辑过]

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/11/16 11:19:00 [只看该作者]

谢谢 mr725老师,目前就是按拼音排序的,我是想按我输入的顺序排序,

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/11/16 12:24:00 [只看该作者]

以下是引用yangming在2009-11-16 11:19:00的发言：
谢谢 mr725老师,目前就是按拼音排序的,我是想按我输入的顺序排序,

这个也可以用代码搞定：

Dim g As New GroupTableBuilder("临时表", DataTables("客户"))
g.Groups.AddDef("客户名称")
g.Build()

With DataTables("临时表")
    .DataCols.Add("输入顺序", GetType(integer))
End With

for n as integer = 0 to tables("临时表").count-1
    Dim dr As integer
    dr = DataTables("客户").Compute("min(输入的序号)", "[客户名称] = '" & tables("临时表").rows(n)("客户名称") & "'")
    tables("临时表").rows(n)("输入顺序") = dr
next

tables("临时表").sort = "输入顺序"
dim p0 as String
For n As integer = 0 to tables("临时表").count-1
p0 = p0 & "|" & tables("临时表").rows(n)("客户名称")
Next
'生产列表项目::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Tables("订单").Cols("客户").ComboList = p0 '或:p0.substring(1) '

[此贴子已经被作者于2009-11-16 12:40:54编辑过]

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

主题：能否给GetComboListString 增加一个排序参数?