PB数据窗口实现点击标题栏字段时按相应字段升/降序排序

将以下代码复制到想要排序的数据窗口的clicked事件中可实现:
//***********************************按标题头排序********************************//
//*****注:为避免点击标题时所在列变黑色,应将数据窗口的column moving属性去掉******//
//*********************************************************************************//
String ls_name,ls_text
Integer i,li_count,li_num,li_num1
If row <= 0 Then
If This.Describe(dwo.Name + ".Band") = 'header' Then
li_count = Integer(This.Describe("Datawindow.Column.Count"))
for i = 1 to li_count
ls_name = This.Describe("#" + String(i) + ".Name")
ls_text = This.Describe(ls_name + '_t.Text')
li_num = PosW(ls_text