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

鉴于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

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

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