不用PACK命令,想保留没有带删除标记的记录,程序是:
USE 原表.DBF
COPY TO 新表.DBF FOR !DELETED()
CLOSE ALL
ERASE 原表.DBF
RENAME 新表.DBF TO 原表.DBF
不用PACK命令,清除所有记录,程序为:
USE 原表.DBF
COPY STRUNCTURE TO 新表.DBF
CLOSE ALL
ERASE 原表.DBF
RENAME 新表.DBF TO 原表.DBF
不用PACK命令,删除所有记录,程序是:
USE 原表.DBF
ZAP
[此贴子已经被作者于2006-6-9 14:31:43编辑过]