>set deleted on >create cursor cursr1 (myfield c(3)) >insert into cursr1 values ('AAA') >insert into cursr1 values ('BBB') >insert into cursr1 values ('CCC') >insert into cursr1 values ('DDD') > >select cursr1 >index on myfield tag myfield >set order to tag myfield in cursr1 > >crtotallines1=alltrim(str(reccount('cursr1'))) > >messagebox(crtotallines1) > > >select cursr1 >if NOT seek ('CCC','cursr1','myfield') > messagebox('prob',0+16) > return >endif >delete in cursr1 for cursr1.myfield='CCC' >SET DELETED OFF >select cursr1 >=seek ('CCC','cursr1','myfield') >crtotallines2=alltrim(str(RECNO('cursr1'))) >messagebox(crtotallines2) >SET DELETED ON > > > > >set deleted on >create cursor cursr1 (myfield c(3)) >insert into cursr1 values ('AAA') >insert into cursr1 values ('BBB') >insert into cursr1 values ('CCC') >insert into cursr1 values ('DDD') > >select cursr1 >index on myfield tag myfield >set order to tag myfield in cursr1 > >crtotallines1=alltrim(str(RECNO('cursr1'))) > >messagebox(crtotallines1) > > >select cursr1 >if NOT seek ('CCC','cursr1','myfield') > messagebox('prob',0+16) > return >endif >lnRecNo = RECNO([cursr1]) >BROWSE NORMAL >delete in cursr1 for cursr1.myfield='CCC' > >select cursr1 >SET DELETED OFF >GOTO lnRecNo >BROWSE NORMAL >crtotallines2=alltrim(str(RECNO('cursr1'))) >messagebox(crtotallines2) >