Information générale
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement