为了做一个删除命令,在表单init事件里使用了独占试打开方式,但是,当其他表单使用这个表时会弹出表正在使用的对话框.
表单的init事件
set delete on
use 计算机档案 exclusive
thisform.grid1.recordsource="计算机档案"
删除命令
yn=messagebox("删除吗??",4+32,"信息窗口")
if yn=6
Select 计算机档案

delete


endif
thisform.grid1.refresh
表单unload事件
sele 计算机档案
pack

在另外一个表单使用这个表时会报错,说表正在使用
我想问下,在表单的unload事件中加一个关闭表的独占语句可不可以???
如果可以,那么语句应该怎么写

[此贴子已经被作者于2006-8-8 10:37:47编辑过]

为什么在表单退出时不把表关闭呢？应该养成及时关闭表的好习惯，否则经常会出现“表正在使用”的情况。

问下,如何关闭表,我一直不明白,没找到这个语句

在UNLOAD事件中最后加上CLOSE ALL

如果只想关闭"计算机档案"表，也可在unload中用
if used("计算机档案")
use in 计算机档案
endif

I 服了 U ，不知道您是怎么看书的。

不好意思,书上真的没写,嘿嘿,惭愧啊,原来只要用use in就可以了,谢谢大老们啊

要慎用close all 用错地方也会出麻烦的。