Question

VF中怎么用独占方式删除正在使用的记录

我在做一个VF的系统。删除时总是显示文件正在使用 删除按钮已经设置了用独占方式 还是不行 删除按钮的click事件代码如下：

nAnswer=messagebox("确定要删除吗",36,"信息")
if nanswer=6
thisform.dataenvironment.closetables('职员信息表')
use 职员信息表 exclusive
delete from 职员信息表 where 职员号 = alltrim(thisform.text1.value)
pack
use
thisform.dataenvironment.opentables('职员信息表')
thisform.refresh
endif
请各位老师指点一下。。。 （ 上面36两边的逗号是在英文状态下写的）

Answer 1

use 职员信息表 exclusive
如果表已经打开了，再用这一句就会出错了
要不你就在添州让加表的数据环境中设置表的打开方式会独占打液察开，就可以去掉上面一句了
还一种方式，就是关闭所有的表再打开
close tables all
use 职员信息表 exclusive
就不会出问题了，但是如果有其它表存在的话，也会被关闭的
还有一种方法是比较常用的，表不要独占打开
只要用set deleted on
然后把pack 去掉
等到关闭表单时关闭所有的表，独占打册埋局开表
再删除它

Answer 2

将 use 职员信息表 exclusive 删除