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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1067 人关注过本帖

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

只看楼主加入收藏

松月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

吹水佬

等　级：版主
威　望：451
帖　子：10538
专家分：42927
注　册：2014-5-20

第 2 楼

得分:10

要删除 rskp 表的记录？

2019-04-20 08:58

wengjl

等　级：贵宾
威　望：109
帖　子：2197
专家分：3838
注　册：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

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