$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