以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  今日开帖灌水之:错误处理  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8346)

--  作者:qtcks
--  发布时间: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
--  发布时间: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
--  发布时间: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

--  作者:狐狸爸爸
--  发布时间:2010/10/10 12:36:00
--  

图片点击可在新窗口打开查看


--  作者:程兴刚
--  发布时间:2010/10/11 9:26:00
--  
对于设计过程,想查找那里错误会不会就有一些难了?
--  作者:卟离卟弃
--  发布时间:2010/10/11 11:28:00
--  

小弟愚昧,不懂大佬们讲的是什么意思...

 

清除错误?

如果是代码写错了,是清除代码?

如果是数据错误导致无法计划,是清除数据?

 

还是直接提示 然后 全部跳过去?


--  作者:擎天柱
--  发布时间:2010/10/11 17:35:00
--  

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=8223&page=6

见4楼,我也发现了这个功能,也来自诩一下