查人人中国名人网文明5怎么启用修改器:VB中如何获得错误号，知道错误号后如何除错
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/18 22:34:48
VB中如何获得错误号，知道错误号后如何除错
On error goto 标签名称
用这句放在过程或函数最前面,如果程序有错误就会自动跳转到'标签名称的位置'运行下面的代码
错误获得方法:
错误在err对象里面
Err.Number 是错误号
Err.Description 错误说明
例子:
On Error GoTo Label_txtDuration_Hours_LostFocus
Dim datEnd As String
If IsNumeric(txtDuration_Hours) = True Then
datEnd = DateAdd("h", txtDuration_Hours, (cobDate & " " & cobTime))
cobDate2 = DateValue(datEnd)
cobTime2 = Hour(datEnd) & ":" & Minute(datEnd)
End If
Exit Sub
Label_txtDuration_Hours_LostFocus:
Me.MousePointer = 0
msgbox Err.Description
你可以根据具体的错误号进行修改程序啊，比如错误号53号就是文件找不到，还有溢出等等的错误号，具体的错误号你可以贴出来或者去网上查一下，另外错误提示的同时，VB编译器会告诉你错误所在的行，你可以去再检查一下。