Visual FoxPro 9：出错时释放表单且不执行剩余代码（不关闭其他表单）

针对你遇到的这个痛点——表单出错后既要终止当前表单，又不执行当前事件剩余代码，同时不影响其他打开的表单——VFP9的TRY...CATCH异常处理结构是最直接可靠的解决方案，完全避开CANCEL会关闭所有表单的问题。

核心思路 #

利用TRY...CATCH包裹可能出错的业务代码，当错误触发时，在CATCH块中直接释放当前表单，并通过RETURN终止当前事件的执行。这样既不会执行事件中剩余的代码，又只会释放出错的表单，其他表单不受任何影响。

具体实现示例 #

下面以表单中一个按钮的Click事件为例，展示如何落地这个方案：

LOCAL loError AS Exception

TRY
    * --------------------------
    * 这里是你的业务代码（可能出错的部分）
    * --------------------------
    * 示例：调用一个可能抛出错误的自定义函数
    RiskyDataOperation()
    
    * 以下是事件中原本要执行的剩余代码
    * 如果上面的代码出错，这部分代码永远不会被执行
    MESSAGEBOX("这行代码只会在无错误时运行")
CATCH TO loError
    * 错误提示（可选，根据需求调整内容和样式）
    MESSAGEBOX(;
        "错误编号: " + TRANSFORM(loError.ErrorNo) + CHR(13) + ;
        "错误信息: " + loError.Message + CHR(13) + ;
        "出错位置: " + loError.Program + " 第" + TRANSFORM(loError.LineNo) + "行", ;
        16, ;
        "表单错误提示"
    )
    
    * 标记当前表单为待释放（VFP会在事件终止后完成释放）
    ThisForm.Release()
    
    * 立即终止当前事件，不再执行后续任何代码
    RETURN
ENDTRY

全局表单错误处理（可选） #

如果希望整个表单的所有事件都统一处理错误，而不是每个事件都写TRY...CATCH，可以给表单添加Error事件，并结合一个全局错误处理函数：

1. 表单的Error事件代码：

LPARAMETERS nError, cMethod, nLine

* 调用自定义全局错误处理函数
DO FormGlobalErrorHandler WITH nError, cMethod, nLine, ThisForm

* 返回.F.阻止VFP默认的系统错误提示
RETURN .F.

2. 自定义错误处理函数（放在表单的PRG或全局公共PRG中）：

PROCEDURE FormGlobalErrorHandler
LPARAMETERS nError, cMethod, nLine, oForm

* 错误提示
MESSAGEBOX(;
    "表单错误: " + TRANSFORM(nError) + CHR(13) + ;
    "触发事件: " + cMethod + " 第" + TRANSFORM(nLine) + "行", ;
    16, ;
    "全局错误处理"
)

* 释放当前表单
oForm.Release()

* 注意：全局Error事件无法直接终止当前事件的剩余代码执行，
* 若要彻底终止，建议还是优先使用TRY...CATCH的精准处理方式

关键注意事项 #

• ThisForm.Release()只是将表单标记为待释放，VFP会在当前事件执行完毕后真正释放表单，所以必须配合RETURN终止当前事件，才能彻底避免剩余代码执行。
• 绝对不要使用CANCEL或CLEAR EVENTS，前者会关闭所有打开的表单，后者会直接终止整个应用的事件循环。
• TRY...CATCH是VFP9新增的特性，正好适配你的版本，能精准控制错误流程，是当前场景下的最优解。

内容的提问来源于stack exchange，提问作者mak101