在线等待+100分 关于排序的问题

solo2k 2003-12-26 10:58:58
PB6.5里对分组汇总的数据怎么实现排序?????


谢谢!!
在线等待!!!
...全文
101 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
jdsnhan 2003-12-31
  • 打赏
  • 举报
回复
dw_1.SetRedraw(false)
dw_1.Setsort("字段名 A for group 组号")//升序A,降序D
dw_1.Sort()
dw_1.GroupCalc()
dw_1.SetRedraw(true)

计算列一样。
solo2k 2003-12-30
  • 打赏
  • 举报
回复
对计算列的排序呢?
banalman 2003-12-26
  • 打赏
  • 举报
回复
同意: chrisfy(K.O)

dw_1.setsort("字段名 A for group 组号")//升序A,降序D
dw_1.sort()
mylovehyy 2003-12-26
  • 打赏
  • 举报
回复
你直接按那列排序的话
它在组内同样会排序
feixianzhi 2003-12-26
  • 打赏
  • 举报
回复
同意4楼的
workhand 2003-12-26
  • 打赏
  • 举报
回复
同意: chrisfy(K.O)

dw_1.setsort("字段名 A for group 组号")//升序A,降序D
dw_1.sort()


ld2099 2003-12-26
  • 打赏
  • 举报
回复
//点击列头排序
string ls_CurObj, ls_CurCol
integer li_LinePos

If ib_AutoSort Then //if ib_AutoSort is Ture,then SetSort.
ls_CurObj = Lower(String(dwo.Name))
li_LinePos = Integer(This.Describe(ls_CurObj + ".X"))+ (Integer(This.Describe(ls_CurObj + ".Width")) - 20)
If Row = 0 AND This.Describe(ls_CurObj + ".Text") <> "!" AND &
This.Describe(ls_CurObj + ".Band") = "header" And Right(ls_CurObj,2) = "_t" Then // Valid header object?
ls_CurCol = Left(ls_CurObj,Len(ls_CurObj) - 2)
If is_OrderCol <> ls_CurCol Then
is_OrderCol = Left(ls_CurObj,Len(ls_CurObj) - 2)
of_asc(li_linePos)
is_SortType = "A"
This.SetSort(is_OrderCol + " " + is_SortType)
This.Sort()
Else
If is_SortType = "A" Then
li_LinePos -= 20
of_des(li_LinePos)
is_SortType = "D"
Else
of_asc(li_LinePos)
is_SortType = "A"
End If
This.SetSort(is_OrderCol + " " + is_SortType)
This.Sort()
End If
End If
End If
eminena 2003-12-26
  • 打赏
  • 举报
回复
是对组内数据排序?
是对组数据排序?
chrisfy 2003-12-26
  • 打赏
  • 举报
回复
dw_1.setsort("字段名 A for group 组号")//升序A,降序D
dw_1.sort()
mittee 2003-12-26
  • 打赏
  • 举报
回复
友情up
intuition444 2003-12-26
  • 打赏
  • 举报
回复
替你UP。

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧