程序代码：

irec=recno()
recall
select  关键字段名 from  表名  into cursor tbtemp where delete()
select  表名
recall all
go irec
delete
pack
delete from 表名 where 关键字段名 in (select  关键字段名 from  tbtemp)

 

[此贴子已经被作者于2019-5-9 07:30编辑过]