Foxtable(狐表)用户栏目专家坐堂 → 今日开帖灌水之:错误处理


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

主题:今日开帖灌水之:错误处理

帅哥哟,离线,有人找我吗?
qtcks
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
今日开帖灌水之:错误处理  发帖心情 Post By:2010/10/10 11:48:00 [显示全部帖子]

鉴于foxtable是vb.net开发的。

但是帮助中没有说道错误处理的方法。

以前做exce vba的时候常用的

on error 语句貌视可以用。

呵呵。

分享下

Dim a As String = "x"
output.show(a*2)

以上语句会出错。

 

on error resume Next
Dim a As String = "x"
output.show(a*2)

加上 :on error resume Next
就不会报错。呵呵。

 

on error 具体的说明请见微软的msdn

转入msdn


 回到顶部
帅哥哟,离线,有人找我吗?
qtcks
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/10/10 12:17:00 [显示全部帖子]

On Error GoTo ErrorHandler   ' 如果出现错误,跳转到ErrorHandler
Dim x As Integer = 32
Dim y As Integer = 0
Dim z As Integer
z = x / y  ' 创建一个结果为零的错误

 

ErrorHandler:  '
Select Case Err.Number  
    Case 6  
        MsgBox("结果为0,出现错误")
    Case Else
End Select
Resume Next


 回到顶部
帅哥哟,离线,有人找我吗?
qtcks
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:485 积分:3926 威望:0 精华:6 注册:2009/3/29 13:25:00
  发帖心情 Post By:2010/10/10 12:18:00 [显示全部帖子]

Dim x As Integer = 32
Dim y As Integer = 0
Dim z As Integer
On Error Resume Next   ' 延缓错误捕获.
z = x / y  ' 创建一个结果为零的错误
If Err.Number = 6 Then
    ' 告诉用户发生了什么事.然后清理错了对象.
    Dim Msg As String
    Msg = "有一个错误,试图通过零!"
    MsgBox(Msg, , "Divide by zero error")
    Err.Clear() ' 清除错误
End If

 回到顶部