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 seek ('CCC','cursr1','myfield')=.f. >messagebox('prob',0+16) >return >endif >delete in cursr1 for cursr1.myfield='CCC' > >select cursr1 >crtotallines2=alltrim(str(reccount('cursr1'))) > >messagebox(crtotallines2)>
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(reccount('cursr1'))) messagebox(crtotallines2) SET DELETED ONOther way:
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 lnRecNo = RECNO([Curs1]) delete in cursr1 for cursr1.myfield='CCC' select cursr1 GOTO lnRecNo crtotallines2=alltrim(str(reccount('cursr1'))) messagebox(crtotallines2)