[转帖]实现数据窗口的动态排序

ehxz

免费乐捐，感谢支持

在用到Windows的资源管理器的时候，当我们需要按照文件的类型或名称排序的时候只要用鼠标点击一下相应的标题栏，系统会按照升序或降序交替排序，这完全取决于用户鼠标点击的奇偶数。如此方便的操作何不用到我们的数据窗口中--实现按某列的动态排序。 　　为了实现上述功能，程序首先需要用到一个全局变量（相对于PB来说可以用窗体变量），用它来控制连续两次点击之间的排序方向。因为字段的排序方向只有升序和降序两种，所以我们可以用一个Boolean型。本例中是Boolean ib_flag。接着在数据窗口控件的Clicked事件中写上如下代码 　　/*****************************程序代码******************************/ 　　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() 　　/*****************************结束******************************/ 　　注：这里所叙述的数据窗口中列的动态排序是以系统默认的列标题名为前提，即在标题栏中列标题名字是以"_t"结尾。如果其中有设计者命名的列标题时只需增加一个条件分支，具体如何实现请读者自己完成。