PB实现数据窗口的动态排序

PB实现数据窗口的动态排序
在用到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”结尾。