文件名称：PB窗口过滤
文件大小：66KB
文件格式：PBL
更新时间：2016-12-19 10:59:25
PB窗口过滤
ls_CurObj = String(dwo.Name) If Row = 0 AND This.Describe(ls_CurObj + ".Text") <> "!" AND This.Describe(ls_CurObj + ".Band") = "header" Then // Valid header object? ls_CurCol = Left(ls_CurObj,Len(ls_CurObj) - 2) If is_OrderCol <> ls_CurCol Then // Different Column This.Modify("DESTROY p_" + is_OrderCol) is_OrderCol = Left(ls_CurObj,Len(ls_CurObj) - 2) ls_Picture = "ORDERUP.BMP" is_SortType = "A" // Ascending sort li_PictPos = Integer(This.Describe(ls_CurObj + ".X"))+ (Integer(This.Describe(ls_CurObj + ".Width")) - 70) ls_AddPict ='create bitmap(band=foreground filename="' + ls_Picture + '" ' + & ' x="' + String(li_PictPos) + "~tInteger(describe('" + is_OrderCol + & ".X')) + (Integer(describe('" + is_OrderCol + ".Width'))" + ' - 70)" y="24" ' + & ' height="33" width="51" border="0" name=p_' + is_OrderCol + ' visible="1")' This.Modify(ls_AddPict) This.SetSort(is_OrderCol + " " + is_SortType) This.Sort() Else If is_SortType = "A" Then ls_Picture = "ORDERDW.BMP" is_SortType = "D" Else ls_Picture = "ORDERUP.BMP" is_SortType = "A" End If