运行数据删除表单，显示文件正在使用无法删除，怎么办？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 运行数据删除表单，显示文件正在使用无法删除，怎么办？

标题：运行数据删除表单，显示文件正在使用无法删除，怎么办？

只看楼主

松月jk

等　级：新手上路
帖　子：19
专家分：0
注　册：2019-3-17
结帖率：25%

楼主

已结贴√ 问题点数：20 回复次数：2

运行数据删除表单，显示文件正在使用无法删除，怎么办？

代码如下：
use 表名 exclusive
mb=messagebox("确定要删除吗？",1+64,"提示")
if mb==1
delete from rskp where dh=thisform.text1.value
pack
messagebox("删除成功",64,"提示")
endif
go top
thisform.refresh
运行后显示文件正在使用，无法删除。
挂起后显示"use 表名 exclusive"有错误，怎么办？

搜索更多相关主题的帖子: 行数　删除　表单　显示　文件　

2019-04-20 07:59

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:10

要删除 rskp 表的记录？

2019-04-20 08:58

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 3 楼

得分:10

以下是引用松月jk在2019-4-20 07:59:05的发言：

代码如下：
use 表名 exclusive
mb=messagebox("确定要删除吗？",1+64,"提示")
if mb==1
delete from rskp where dh=thisform.text1.value
pack
messagebox("删除成功",64,"提示")
endif
go top
thisform.refresh
运行后显示文件正在使用，无法删除。
挂起后显示"use 表名 exclusive"有错误，怎么办？

你的表是表单的数据源，是不可以使用　pack 的。
可以表单关闭时，让数据表脱离表单，再执行　PACK　是可以的。

具体做法：
在窗体的　Destroy 中　写上
CLOSE DATABASES 作用　脱离
USE 表
PACK
CLOSE DATABASES

[此贴子已经被作者于2019-4-20 09:09编辑过]

只求每天有一丁点儿的进步就可以了

2019-04-20 09:06

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-494302-1-1.html