>SELECT MyCursor >lnOrigBuffering = CURSORGETPROP('Buffering') > >IF GETNEXTMODIFIED(0)=0 && check no uncommitted changes > =CURSORSETPROP('Buffering',3) && cursor must be row-buffered for indexing > > INDEX ON myField TAG myTag >ENDIF > >=CURSORSETPROP('Buffering', lnOrigBuffering) && restore original buffering>
SELECT MyCursor IF GETNEXTMODIFIED(0)=0 AND TABLEREVERT(.T.) && check no uncommitted changes lnOrigBuffering = CURSORGETPROP('Buffering') =CURSORSETPROP('Buffering',3) && cursor must be row-buffered for indexing INDEX ON myField TAG myTag =CURSORSETPROP('Buffering', lnOrigBuffering) && restore original buffering ENDIF