vb错误处理由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb常见调试错误”。
Vb错误处理 出错处理
（1）设置错误陷阱
On Error Resume Next
若出现错误，则将当前错误语句忽略，执行下条语句。
On Error GoTo 语句标号
On Error GoTo 0 不进行任何处理
（2）编写错误处理程序
Resume：接着错误的地方执行，重试。
Resume Next：类似On Error Resume Next，忽略当前错误语句，执行下一语句Resume ：到标号那里去处理。
过程级、模块级
节选：
Onerrorgoto标签是放在错误发生之前，有效范围是到此事件的结束，包括错误处理时发生的错误。（此时的错误一般是没有想到的，故也没有处理）所以要保证不要在错误处理的代码中写复杂的代码。
OnErrorGotoErr_Normal
'一般代码
sql= “insertinto......”
OnErrorGotoErr_Roll
adocn.BeginTrans
adocn.Executesqladocn.CommitTrans
OnErrorGotoErr_Normal
....Exitsub
Err_Normal:
'正常错误处理
ExitSub
vb6.0 遇到错误能不退出吗
2012-1-25 20:04提问者： 咫·尺 | 浏览次数：278次
比如遇到数据溢出啊等，弹出错误以后，就直接把程序关闭了，数据都没保存，能弹出错误后，不关闭程序吗？
满意回答
插入以下代码：
On Error Resume Next
即可。意思是，程序遇到错误不理会，继续执行。
或者使用GoTo，比如下面的代码计算肯定是溢出的，但程序不会退出，不过会提示： On Error GoTo ToExit
Dim g, ErrNum As Boolean
g = 1
Do Until ErrNum
g = g * 1024
Loop
ToExit:
If Err.Number = 6 Then
Print “程序溢出，计算结果不准确”, g
Exit Sub
End If
或者使用以下代码，可以完全显示计算过程：
Dim WithEvents List As ListBox
Private Sub Form_Load()
On Error GoTo ToExit
Dim g, ErrNum As Boolean
g = 1
Set List = Me.Controls.Add(“VB.ListBox”, “List”)
With List
.Left = 0
.Top = 0
.Width = Form1.Width490
.Visible = True
End With
Do Until ErrNum
g = g * 1024
List.AddItem g
Loop
ToExit:
If Err.Number = 6 Then
List.AddItem “程序溢出，计算结果不准确” & g
Exit Sub
End If
End Sub
追问
是不是要在每一个容易出错的sub里面都要这样加一下？有没有整体设置一下或者写代码的？每个sub都写一下也挺麻烦的回答
首先，第一行是每个里边都需要有的，有了这一行，才会执行错误跳转。
比如上边的第二段代码也可以这样写：这样在每段容易出错的过程中，加上第一个的On Error GoTo ToExit和最后一行的ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16即可。当然，你需要在Esub这个子过程中，把所有可能会涉及到的错误代码都添加上。如果只想知道哪里错了，也可以直接提醒，出错也是可以的Private Sub Form_Load()
On Error GoTo ToExit
Dim g, ErrNum As Boolean
g = 1
Do Until ErrNum
g = g * 1024
Loop
ToExit: MsgBox “程序出现错误！” & Chr(10)& “错误类型：” & Error(Err.Number), 16
End Sub
1.检测到有潜在危险的 Request.Form 值原因:(1)在提交数据的页面或webconfig中没有对validateRequest的属性进行正确的设置(2)HTML里面写了两个引起解决:方案一： 在.aspx文件......
ISSUE:如果使用 PCL6 XL (Enhanced) 驱动程序，HP LaserJet、Color LaserJet 系列打印机打印输出 XL 错误页面。例如：PCL XL ErrorSubsystem: KERNELError: IllegalOperatorSeq......
新"免、抵、退"税申报错误原因及正确处理方法生产企业新"免、抵、退"税申报系统已使用了一段时间，针对操作过程中出现的一些问题，现将错误原因及正确处理方法归结如下，请出......
输入的数字与事先设置的数字相同，则提示“输入正确” 否则显示“错了” ， 。 代码编写： 代码Private Sub Command1_Click() x = Val(InputBox("输入一个 1～10 之间的整数"))......
财务报表填写错误处理流程网上报税纳税人正式上报财务报表(资产负债表和损益表)后，如发现报表数据错误，需要进行修改处理的，请按以下流程进行处理：一、纳税人通过网上申报系统正......
