一数据表,以[报名序号]为主关键字的部分记录有重复,用下面查询这些记录,并进行逻辑删除,为什么只能查询出7条记录?
程序代码如下:
use lsb
selectlsb index on 报名序号 tag 报名序号
go top
scan i=报名序号 skip if 报名序号=i skip -1 delete skip endif
endscan
Close Databases
Use lsb Alias lsb
Select lsb
Index On 报名序号1 Tag 报名序号
I=""
Scan
If 报名序号1==I
Skip -1
Delete
Skip
Endif
I=报名序号1
Endscan
Browse For Deleted()=.t.
Set Order To
Close Databases
Erase lsb.CDX