Hi
How can I run 'set deleted on' on cursor, take a look on the following code:

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)

How can I get '3' in the second messagebox?

Thank's