| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1866 人关注过本帖
标题:[求助]关于文件正在使用
只看楼主 加入收藏
alex252
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-4-22
收藏
 问题点数:0 回复次数:15 
[求助]关于文件正在使用

这是我做的关于题库录入和试卷生成的一个系统,当我点删除时,他会说文件正在使用,指明是选择题目表,但我不知道该怎么办

注明:组合框是op1,进入维护是command1,退出维护是command2,删除是command3,修改是command4
以下是 进入维护按钮 和 删除按钮的代码:
this.enabled=.f.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.t.
thisform.command5.enabled=.f.
thisform.command6.enabled=.f.
thisform.op1.option1.enabled=.f.
thisform.op1.option2.enabled=.f.
thisform.op1.option3.enabled=.f.
thisform.op1.option4.enabled=.f.
thisform.grid1.enabled=.t.

do case
case thisform.op1.value=1
thisform.grid1.recordsource="选择题目表"
thisform.grid1.columncount=9
thisform.grid1.column1.header1.caption="题目编号"
thisform.grid1.column2.header1.caption="章节编号"
thisform.grid1.column3.header1.caption="题型编号"
thisform.grid1.column4.header1.caption="难易编号"
thisform.grid1.column5.header1.caption="题目"
thisform.grid1.column6.header1.caption="A选项"
thisform.grid1.column7.header1.caption="B选项"
thisform.grid1.column8.header1.caption="C选项"
thisform.grid1.column9.header1.caption="D选项"
thisform.grid1.refresh

case thisform.op1.value=2
thisform.grid1.recordsource="填空题目表"
thisform.grid1.columncount=5
thisform.grid1.column1.header1.caption="题目编号"
thisform.grid1.column2.header1.caption="章节编号"
thisform.grid1.column3.header1.caption="题型编号"
thisform.grid1.column4.header1.caption="难易编号"
thisform.grid1.column5.header1.caption="题目"
thisform.grid1.refresh

case thisform.op1.value=3
thisform.grid1.recordsource="简答题目表"
thisform.grid1.columncount=5
thisform.grid1.column1.header1.caption="题目编号"
thisform.grid1.column2.header1.caption="章节编号"
thisform.grid1.column3.header1.caption="题型编号"
thisform.grid1.column4.header1.caption="难易编号"
thisform.grid1.column5.header1.caption="题目"
thisform.grid1.refresh

case thisform.op1.value=4
thisform.grid1.recordsource="应用题目表"
thisform.grid1.columncount=5
thisform.grid1.column1.header1.caption="题目编号"
thisform.grid1.column2.header1.caption="章节编号"
thisform.grid1.column3.header1.caption="题型编号"
thisform.grid1.column4.header1.caption="难易编号"
thisform.grid1.column5.header1.caption="题目"
thisform.grid1.refresh
endcase

删除:
do case
case thisform.op1.value=1
thisform.grid1.recordsource=''
use 选择题目表 exclusive
set order to 题目编号
seek getid
local sure
sure=messagebox("确定删除?",4+32,"提示信息")
if sure=6
delete
pack
thisform.grid1.recordsource="选择题目表"
thisform.grid1.refresh
endif


case thisform.op1.value=2
thisform.grid1.recordsource=''
use 填空题目表 exclusive
set order to 题目编号
seek getid
local sure
sure=messagebox("确定删除?",4+32,"提示信息")
if sure=6
delete
pack
thisform.grid1.recordsource="填空题目表"
thisform.grid1.refresh
endif

case thisform.op1.value=3
thisform.grid1.recordsource=''
use 简答题目表 exclusive
set order to 题目编号
seek getid
local sure
sure=messagebox("确定删除?",4+32,"提示信息")
if sure=6
delete
pack
thisform.grid1.recordsource="简答题目表"
thisform.grid1.refresh
endif


case thisform.op1.value=4
thisform.grid1.recordsource=''
use 应用题目表 exclusive
set order to 题目编号
seek getid
local sure
sure=messagebox("确定删除?",4+32,"提示信息")
if sure=6
delete
pack
thisform.grid1.recordsource="应用题目表"
thisform.grid1.refresh
endif

endcase


搜索更多相关主题的帖子: 文件 
2006-04-22 22:37
alex252
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-4-22
收藏
得分:0 

忘记说了
getid=alltrim(thisform.grid1.column1.text1.value)

2006-04-22 22:39
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
学会工作区,学会USED 学会独占打开表

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-04-23 00:02
lndsqfyq
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2006-1-16
收藏
得分:0 
版主真是厉害,总是告诉应该学习的知识点,让我们自己学习。

2006-04-23 08:51
alex252
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-4-22
收藏
得分:0 

这样说没用啊,我不懂,看了也不懂,还是直接告诉我怎么做,我只擅长用例子发现问题

2006-04-23 09:21
blueblood
Rank: 2
等 级:新手上路
威 望:4
帖 子:135
专家分:0
注 册:2006-4-2
收藏
得分:0 

我以为,你在表单的LOAD,INIT事件中,可能也打开了文件

[此贴子已经被作者于2006-4-23 11:20:16编辑过]

2006-04-23 11:18
BLONG
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-4-12
收藏
得分:0 
以下是引用alex252在2006-4-23 9:21:00的发言:

这样说没用啊,我不懂,看了也不懂,还是直接告诉我怎么做,我只擅长用例子发现问题

为什么不懂?你没有找找原因吗?人生下来谁也不会走路,慢慢学啊,直接给你做出程序你高兴,有用吗?

2006-04-23 12:54
leanonme
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-12-30
收藏
得分:0 
自古以来都是老师好当,学生难当!
2007-01-12 12:42
fengshan
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-1-12
收藏
得分:0 

你不告诉别人也就算了,何必要挖苦他人呢?

2007-01-12 18:51
dragon000211
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2005-12-11
收藏
得分:0 
你在form 的init加入如下代码试试
if not used ("要操作的表名称")
use 要操作的表名称 in 2
endif
2007-01-12 19:23
快速回复:[求助]关于文件正在使用
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018844 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved