求教各位高手，我的表单集在LOAD事件里先检测数据表是否存在，如不存在，退出表单集，我用了thisformset.release，没有，用CANCEL可以，但会直接退出主程序。不知道是不是有其它命令或办法可用。还请不吝赐教。谢谢。

贴上我的代码。
TRY
    SELECT 1
    USE \\netadmin\sDbs$\ParDraw EXCLUSIVE
    SELECT 2
    USE \\netadmin\sDbs$\ParPb EXCLUSIVE
    SELECT 3
    USE \\netadmin\sDbs$\CustDbf EXCLUSIVE
    SELECT 5
    USE \\netadmin\sDbs$\QsDbf EXCLUSIVE     
CATCH TO nError
ENDTRY
IF TYPE('nError') <> 'U'
    MESSAGEBOX('数据表正在被用户使用，请稍后再试！',0+16,'提示')
    CLOSE DATABASES ALL
    CANCEL
ENDIF

难道只能用代码 ＋ 表单 形式来实现吗？还请高手赐教啊。

楼主使用VFP的系统窗口或者设置了顶层表单作主窗口没有？

使用VFP的系统窗口了。

用cancel当然是中断整个程序了。在Load事件中，如果决定不启动这个对象，就return .F.。

感谢版主，我去试试。我现在用 PRG + SCX也能实现，但每个表单集都用PRG程序来实现，太麻烦了。

这个问题可能是由于Load事件的特点引起的：Load事件发生的时候，其实还没建立起表单集，不存在Thisformset这个对象，当然你那条Release语句也没用啦。你把Load事件中的代码全部移到Init事件中，再试试效果。Init事件是对象建立起来以后发生的，你那条语句应该会有效果。

收到的鲜花

• hu9jj 于 2012-12-24 17:31 送鲜花  20朵   附言：我很赞同

用RETURN .F.最简单。非常实用。

表单都还没建立，你就关了，怎么行呢？应该在Init事件中吧，这个才是建立了后执行的。