Question

在设计VF表单时出现的问题

我在做VF表单的时候，单击 "删除记录" 出现了“文件必须以独占方式打开”。
其中我做此程序（表单）是为了达到更新表的记录的目的。
其中有以下空间：表格，命令按扭3个（添加记录，删除记录，退出）。
命令按扭的属性基本没改变
(以下都为单击事件click )
添加记录的代码： append blank
thisform.refresh()
删除记录的代码： pack
thisform.refresh()
退出的代码： thisform.release()
表格用的是“生成器”方式把数据参进去的
当我 运行→“添加删除标记”（在表格中完成）→单击“删除”按扭
就出现了“文件必须以独占方式打开”的系统错误提示对话框。]
有哪位大哥大姐能帮我的忙啊
本人是新手暂时没有积分
对不起拉！！！！！！！！！！！！！！！！！！！！！
帮帮偶的忙啊！！！！！！！！！！！！！

Answer 1

设置pack/sort/zap等，需要独占方式打开表
你设置：set exclu on，然后再打开表

或者打开表的时候用：
use 表名 exclus

给你的程序，你用的时候把它作函数代进取

DName=DBF()
Rec =recn()
Ndx ='Set Index to '+Ndx (Sele())
Odr ='Set Order to '+Orde(Sele())
Ftr ='Set Filte to '+Filt(Sele())
Err ='On Error '+On ('Error')
Mss ='['+DName+']非独占,下面的操作需独占此库,重试吗?'

On Erro ??chr(7)
do while Sys(2011,DName)#'Exclusive'
use &DName Exclusive
if Sys(2011,DName)#'Exclusive'
use &Dname
if yesno_(0,Mss)=0
Mss='不能独占,数据库正被其他用户或程序使用.选[确定]重试.'
Loop
endif
endif
Exit
enddo
On Erro
if Rec<=recc()
Goto Rec
endif

&Ndx
&Odr
&Ftr
&Err

return Sys(2011,DName)='Exclusive'