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

呵呵，楼主，就是在项目属性中找到这个事件，写上一行代码：

 

e.cancel = true

 

如此简单而已，bin在4楼讲述得很清楚了，你先测试一下嘛，直接就说看不懂，难怪bin差点崩溃，因为没办法讲得更清楚了。

这个事件是捕获所有错误，如果你要单独捕获你一楼的错误，会比较麻烦，估计你的问题也在这里。

 

捕获特定错误的办法：
 
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
    e.Form.Controls("txtZt").Text="查看状态"
End If
Functions.Execute("ButtonZt")
变量名 = 0
 
3、BeforeShowErrorMessage 事件代码设置为：
 
if 变量名 = 100 then

    变量名 = 0
    MessageBox.Show("关键字重复或不能为空,请检查!")
end if


 
 

出错就不会执行后面的代码了

t.DataTable.Save  出错，绝对不会执行：

 

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

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

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

 

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

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