pb用純函數實現在數據窗口中模擬資源管理器鼠標單擊動作動態排序,并顯示排序箭頭
2024-07-21 02:10:25
供稿：網友
//函數名:f_dwsort(datawindow fdw_dw,dwobject fdwo_dwo) return none
//說明:用于在數據窗口中模擬資源管理器鼠標單擊動作動態排序,并顯示排序箭頭
//調用規則:在數據窗口控件clicked!中寫入f_dwsort(this,dwo)
//參數:fdw_dw datawindow
// fdwo_dwo dwobject
//返回值:無
//autor:xiaoluoxy蕭云
string ls_clicked_pos,ls_col,ls_format,ls_tag
long ll_pos
string ls_text,ls_column[]
int li_i
ls_clicked_pos = fdwo_dwo.name
ll_pos = pos(ls_clicked_pos,'_t')
if ll_pos >0 then
//設置排序
ls_col = left(ls_clicked_pos,ll_pos -1)
ls_tag = fdwo_dwo.tag
if ls_tag = ls_col + "a" then
fdwo_dwo.tag = ls_col + "d"
ls_format = ls_col+" a"
elseif ls_tag = ls_col + "d" then
fdwo_dwo.tag = ls_col + "a"
ls_format = ls_col+" d"
else
fdwo_dwo.tag = ls_col + "d"
ls_format = ls_col+" a"
end if
//設置列標題
for li_i = 1 to long(fdw_dw.object.datawindow.column.count)
ls_column[li_i] = fdw_dw.describe("#" + string(li_i) + ".name") //得到列名
ls_text = fdw_dw.describe(ls_column[li_i] + "_t.text")
if right(ls_text,2)="▽" or right(ls_text,2)="△" then
ls_text = left(ls_text,len(ls_text) - 2)
end if
fdw_dw.modify(ls_column[li_i] + "_t.text='"+ls_text + "'")
next
ls_text = fdw_dw.describe(ls_clicked_pos + ".text")
if right(ls_text,2)="▽" or right(ls_text,2)="△" then
ls_text = left(ls_text,len(ls_text) - 2)
end if
if right(ls_format,1) = 'a' then
fdw_dw.modify(ls_clicked_pos + ".text='"+ls_text + "△'")
elseif right(ls_format,1) = 'd' then
fdw_dw.modify(ls_clicked_pos + ".text='"+ls_text + "▽'")
end if
fdw_dw.setsort(ls_format)
fdw_dw.sort()
end if
//本程序在pb6.5下通過測試
