SELECT SomeFields WHERE SomeCondition INTO CURSOR qTmp NOFILTER
lnBuffering = CURSORGETPROP( [Buffering], This.RecordSource )
CURSORSETPROP( [Buffering], 3, This.RecordSource )
ZAP IN ( This.RecordSource )
CURSORSETPROP( [Buffering], lnBuffering, This.RecordSource )
SELECT ( This.RecordSource )
APPEND FROM DBF( [qTmp] )
GO TOP IN ( This.RecordSOurce )
This.Refresh()