主题：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