Hi,

the index expression is variable, but not very complex, only on one field,
for example an internal field 'detailid' for sorting.

*++
*>>Requery the specified view, or all managed views if none specified.
* All parameter variables for parameterized views should be defined as PRIVATE
* before calling this method, so they will be in scope for the REQUERY() function.
*--
LOCAL lStatus

m.lStatus = .T.
THIS.lError = .F.
IF CURSORGETPROP('SourceType', THIS.cWorkarea) < 3
m.lStatus = (REQUERY(THIS.cWorkarea) != 0)

* __ ANFANG
LOCAL nBuffering
m.nBuffering=CURSORGETPROP("Buffering",THIS.PARENT.cWorkarea)
IF m.nBuffering=5
=CURSORSETPROP("Buffering",3,THIS.PARENT.cWorkarea)
ENDIF
IF LEFT(THIS.PARENT.cindexexpr,1)="("
THIS.PARENT.setorder("expr",THIS.PARENT.cindexexpr,THIS.PARENT.lDescending)
ELSE
THIS.PARENT.setorder(THIS.PARENT.cindexexpr,THIS.PARENT.cindexexpr,THIS.PARENT.lDescending)
ENDIF
IF m.nBuffering=5
=CURSORSETPROP("Buffering",5,THIS.PARENT.cWorkarea)
ENDIF
THIS.GoTop()
* __ ENDE

RETURN m.lStatus AND NOT THIS.lError && Returns .F. if requery fails
ENDIF
RETURN .T. && If its a native table, then requery() is a no-op.


Bye,
Andreas