如何实现单击数据窗口中的列标题对列进行排序

一 （1）在窗口对象定义实例变量

 boolean ib_flag

 （2）在数据窗口控件的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"结尾根本就没有点到列标题上则退出
//去掉列标题末尾的"_t"得到有效地列标题名
ls_column = left(ls_column,len(ls_column)-2)
//进行升序和降序排列
if ib_flag then
 ls_sort = ls_column + " A"   //升序
else
 ls_sort = ls_column + " D"   //降序
end if
ib_flag =  not ib_flag
this.setsort(ls_sort)
this.sort()

二 通过函数实现 doubleclicked事件 实现双击数据窗口中的列标题对列进行排序