数据源：this.parent.grid1.recordsource="情况记录" （自由表）

SET DELETED ON
先打删除标记，等到编辑或浏览数据完后再作删除记录处理

行滴，先标记，再删除

直接
delete
pack

好像只能删除一条，删除第二条时，pack 报错,文件在另一工作区打开

[此贴子已经被作者于2018-7-7 19:07编辑过]

PACK要独占打开

弱弱问一下如何独占?在哪设置？
同样的按钮，同样的代码，为什么删第二条记录就报错，第一条不报？

[此贴子已经被作者于2018-7-7 19:48编辑过]

如果表单中用到的表是自由表，事先将该表添加到表单的数据环境中，并设置该表的EXCLUSIVE属性为.T.，PACK时就不会出现错误。
另外，在表单中使用自由表时，尽量不要用 USE 表 命令打开表，特别是对于新手来讲这条尤为重要。

不用独占也可以：
COPY TO tmp FOR !DELETED()
ZAP
APPEND FROM tmp

采用sdta7楼的方法比较好，删除记录后，表格的数据源重新设置，恢复显示。