Question

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

Answer 1

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

Answer 2

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

Answer 3

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