754
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
linwdm2002 2004-10-17
- 打赏
- 举报
/*****************************程序代码******************************/
String ls_column, ls_sort
ls_column = this.GetObjectAtPointer() // 得到鼠标按下位置的对象名
ls_column = left(ls_column, len(ls_column) - 2) // 得到列标题名字
if not Lower(right(ls_column, 2)) = "_t" then return
// 如果不是缺省的列标题，即以“_t”结尾或鼠标根本没有点在列标题上则退出
ls_column = left(ls_column, len(ls_column) - 2) // 去掉列标题末尾的“_t”，得到有效的列标题名
// 进行升序和降序的切换
if ib_flag then
ls_sort = ls_column + " A" // 升序
else
ls_sort = ls_column + " D" // 降序
end if
ib_flag = not ib_flag // 为下一次排序准备
ls_sort = ls_sort
this.setsort(ls_sort)
this.sort()
String ls_column, ls_sort
ls_column = this.GetObjectAtPointer() // 得到鼠标按下位置的对象名
ls_column = left(ls_column, len(ls_column) - 2) // 得到列标题名字
if not Lower(right(ls_column, 2)) = "_t" then return
// 如果不是缺省的列标题，即以“_t”结尾或鼠标根本没有点在列标题上则退出
ls_column = left(ls_column, len(ls_column) - 2) // 去掉列标题末尾的“_t”，得到有效的列标题名
// 进行升序和降序的切换
if ib_flag then
ls_sort = ls_column + " A" // 升序
else
ls_sort = ls_column + " D" // 降序
end if
ib_flag = not ib_flag // 为下一次排序准备
ls_sort = ls_sort
this.setsort(ls_sort)
this.sort()
