删除按钮运行不了

我现在在做vfp课程设计，在表单里我的删除按钮运行不了，提示说“文件要以独占方式打开”，请各位帮我解答

2011-6-19 10:01

提问者： gyhappy51 | 一级

推荐答案

2011-6-19 21:52

在按钮里写上：
THISFORM.TEXT1.VALUE=DATE()
在FORM的INIT事件里写上：
THISFORM.COMMAND1.CLICK
THISFORM.REFRESH

回答 
共2条 
2011-6-19 
11:37 t00191
1)你是不是将表直接加进数据环境中？你将控件的属性（如Cursor1）设置EXClusive为真就好了！再或者你可以用USE命令打开主好了，USE　表1，，两种方法选一，不能同时，不然会提示找不到别名！
我喜欢的方法就是，什么增加啊，浏览啊删除等都用一个表单就够了，信息不多，所以 加进数据环境中的时候直接设置EXClusive为真，随便玩

2)

msg=messagebox('您确定要删除这条记录吗？')
 if msg=6  
  delete
   copy to 信息表.dbf for not deleted()
   zap
   Append from 信息表.dbf
   delete file 信息表.dbf
   messagebox("删除记录成功",16,)
   go top
   thisform.grid1.refresh
   endif