| 123456789101112131415161718192021 |
- $PBExportHeader$f_myretrieve.srf
- $PBExportComments$添加条件后retrieve--函数
- global type f_myretrieve from function_object
- end type
- forward prototypes
- global function integer f_myretrieve (datawindow f_dw, string f_where)
- end prototypes
- global function integer f_myretrieve (datawindow f_dw, string f_where);string ls_old,ls_update
- ls_old=f_dw.describe("DataWindow.Table.Select")
- if f_addwhere(f_dw,f_where)=1 then
- f_dw.retrieve()
- f_dw.Modify('DataWindow.Table.Select="'+ls_old+'"')
- return 1
- else
- return 0
- end if
- end function
|
