Foxtable(狐表) → 用户栏目 → 专家坐堂 → Try Catch 语句无法捕获错误


  共有5785人关注过本帖树形打印复制链接

主题：Try Catch 语句无法捕获错误
帅哥哟，离线，有人找我吗？
yedaoan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		Try Catch 语句无法捕获错误  发帖心情 Post By：2014/2/27 10:06:00 [显示全部帖子]

Try
    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")
Catch ex As Exception
    MessageBox.Show("关键字重复或不能为空,请检查!")
End Try

出错如下（后台是SQL server）

此主题相关图片如下：1.jpg
按此在新窗口浏览图片

搜索了论坛 说要用  BeforeShowErrorMessage，这个没有示例，不知道怎么做？
 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/27 10:21:00 [显示全部帖子]

上面这个帮助看过了，怎么用？给示例

 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/27 10:26:00 [显示全部帖子]

看不懂

 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/27 10:50:00 [显示全部帖子]

bin，就差两个字“项目”，我在窗口里，表里找表半天没有找到，原来在项目里，

 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/27 10:58:00 [显示全部帖子]

谢谢狐爸的耐心回答

 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/28 8:41:00 [显示全部帖子]

Dim t As Table = e.Form.Controls("Table1").Table
Try
    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
        MessageBox.Show("dd")
        e.Form.Controls("txtZt").Text="查看状态"
    End If
    Functions.Execute("ButtonZt")
Catch ex As Exception
    MessageBox.Show("关键字重复或空值,不能保存!")
End Try

在t.DataTable.Save出错后，还是会执行后后面的  
        MessageBox.Show("dd")
        e.Form.Controls("txtZt").Text="查看状态"

不会在出错后，直接跳到 Catch ex As Exception

这个该如何解决？
 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/28 8:43:00 [显示全部帖子]

在DataColChangIng控制，已经写好了，这不是我要的，我要的是在窗口里捕获，并截取

[此贴子已经被作者于2014-2-28 8:43:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/28 8:46:00 [显示全部帖子]

bin，还有没有其他办法？

 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/28 8:48:00 [显示全部帖子]

这本身对于狐表来说，也是一个大BUG，在Try Catch 出错了，怎么还能往下执行，不符合逻辑啊！

 回到顶部
帅哥哟，离线，有人找我吗？
yedaoan
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：1971 威望：0 精华：0 注册：2012/12/20 8:21:00 		  发帖心情 Post By：2014/2/28 10:36:00 [显示全部帖子]

狐爸，Functions.Execute("ButtonZt"),没有问题,我试着在表里增加一个重复值，就跳错（如图），不是增加重复值就没有问题
另，这个没有单步执行，调试起来真得很不方便.

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2014-2-28 10:36:15编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询