主题：Try Catch 语句无法捕获错误

我发了个视频上来

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:录像1.rar

没有跳转到Try Catch是正常的，也没有显示3，说明出错之后，其他代码没有执行，并没有如你之前所言，还执行了后面你的代码。

其实一开始就告诉你原因了，有些错误foxtable自己捕获并提示了，用try catch没有用，需要用：

http://www.foxtable.com/help/topics/2655.htm

 

说了这么多回合，又回到原点了，我还帮你写了这个事件的例子的。

但是你关闭出错提示后，他又继续执行3,4,5了

1、定义一个整数型的public变量
 
2、原来的代码改为：
 
变量名 = 100
Dim t As Table = e.Form.Controls("Table1").Table
If e.Form.Controls("txtZt").Text<>"查看状态" Then
    t.DataTable.DeleteFor("dwmc is null")
    t.AllowAddNew=False
    t.AllowEdit=False
    t.AllowDelete=False
    t.DataTable.Save
    if 变量名 = 100 Then
        e.Form.Controls("txtZt").Text="查看状态"
    End if
End If
if 变量名 = 100 Then
     Functions.Execute("ButtonZt")
     变量名 = 0
End if
 
3、BeforeShowErrorMessage 事件代码设置为：
 
if 变量名 = 100 then
    变量名 = 0
    MessageBox.Show("关键字重复或不能为空,请检查!")
end if