[/src]CURSORSETPROP("Buffering",  3 , lcAlias)
INDEX ON vocabview1.num1 TAG num1 OF vocabtmp1 FOR !DELETED("vocabview1")
INDEX ON vocabview1.num2 TAG num2 OF vocabtmp1 FOR !DELETED("vocabview1") ADDITIVE
INDEX ON STR(vocabview1.valnum,  4 ) TAG valnum OF vocabtmp1 ADDITIVE
INDEX ON vocabview1.xvalue1 TAG xvalue1 OF vocabtmp1 ADDITIVE

SET ORDER TO
CURSORSETPROP("Buffering",  5 , lcAlias)
[src]

[/src]
ThisForm.LastIndex = SET("Index")

CURSORSETPROP("Buffering",  3 , ThisForm.Alias)
 SET INDEX TO
CURSORSETPROP("Buffering",  5 , ThisForm.Alias)

DELETE
BEGIN TRANSACTION
IF TABLEUPDATE(.F., .T., lcAlias) = .T.
  END TRANSACTION
....  
ELSE
  ROLLBACK
....
ENDIF
CURSORSETPROP("Buffering",  3 , ThisForm.Alias)
 SET INDEX TO (ThisForm.lastIndex)          &&Индекса уже нет
CURSORSETPROP("Buffering",  5 , ThisForm.Alias)

[src]