PB问题请帮忙
来源:百度知道 编辑:UC知道 时间:2024/05/16 05:48:42
pb中自定义事件的代码:(无参数,返回值:integer)
------------------------------------------------------
string ls_SortString
Pointer lp_oldpointer
ls_SortString = wf_BuildSortString()
lp_oldpointer = SetPointer(HourGlass!)
idw_toacton.SetSort(ls_SortString)
idw_toacton.SetRedraw(FALSE)
idw_toacton.Sort() //根据当前的排序条件排序数据窗口控件的行
idw_toacton.SetRedraw(TRUE)
SetPointer(lp_oldpointer)
RETURN 0
---------------------------------------------------------
上面事件中调用的wf_BuildSortString()函数为(返回值是string):
string ls_ColName, ls_Order, ls_SortExpr
integer li_i, li_RCount
long ll_ColumnNo
dw_sort.AcceptText()
li_RCount = dw_sort.RowCount ( )
FOR li_i = 1 to li_RCount
ll_ColumnNo = dw_sort.GetItemNumber( li_i, "column_number")
If IsNull(ll_ColumnNo) Then
CONTINUE
Else
ls_ColName = "#" + String(ll_ColumnNo)
ls_Order = dw_sor
------------------------------------------------------
string ls_SortString
Pointer lp_oldpointer
ls_SortString = wf_BuildSortString()
lp_oldpointer = SetPointer(HourGlass!)
idw_toacton.SetSort(ls_SortString)
idw_toacton.SetRedraw(FALSE)
idw_toacton.Sort() //根据当前的排序条件排序数据窗口控件的行
idw_toacton.SetRedraw(TRUE)
SetPointer(lp_oldpointer)
RETURN 0
---------------------------------------------------------
上面事件中调用的wf_BuildSortString()函数为(返回值是string):
string ls_ColName, ls_Order, ls_SortExpr
integer li_i, li_RCount
long ll_ColumnNo
dw_sort.AcceptText()
li_RCount = dw_sort.RowCount ( )
FOR li_i = 1 to li_RCount
ll_ColumnNo = dw_sort.GetItemNumber( li_i, "column_number")
If IsNull(ll_ColumnNo) Then
CONTINUE
Else
ls_ColName = "#" + String(ll_ColumnNo)
ls_Order = dw_sor
我试了一下,你这个应该是一个排序的界面,通过你输入的排序方法对dw_sort进行排序。
ls_sortexpr得到的是排序的条件,然后通过这个排序的条件进行排序
不怎么看得出来,好像是生成一个动态数据窗口的sql。