[PB编程]SystemError事件中的常用代码
STRING ErrMessage
STRING ErrText
IF Error.Number=0 THEN RETURN
CHOOSE CASE Error.Number
CASE 1
ErrMessage="数学错误,出现被零除"
CASE 2
ErrMessage="程序中引用了空对象"
CASE 3
ErrMessage="数组出现越界访问"
CASE 4
ErrMessage="枚举值超出函数范围"
CASE 5
ErrMessage="函数中遇到负值"
CASE 6
ErrMessage="指定的数据窗口行/列无效"
CASE 7
ErrMessage="连接引用时,出现不可解决的外部引用"
CASE 8
ErrMessage="引用带有空下标的数组"
CASE 9
ErrMessage="DLL库函数未在当前程序中"
CASE 10
ErrMessage="出现DLL库函数不支持的参数类型"
CASE 11
ErrMessage="对象文件已过期,必须转换为当前版本"
CASE 12
ErrMessage="数据窗口列类型与GetItem函数返回类型不匹配"
CASE 13
ErrMessage="未知的属性引用"
CASE 14
ErrMessage="为外部函数打开了错误的DLL库"
CASE 15
ErrMessage="错误调用外部函数"
CASE 16
ErrMessage="超出允许最大字符串的长度"
CASE 17
ErrMessage="数据窗口控件中引用的数据窗口对象不存在"
CASE 18
ErrMessage="函数没有返回值"
CASE 19
ErrMessage="不能将任意变量中的数据类型转换为其他数据类型"
CASE 20
ErrMessage="没有成功地准备好数据库命令"
CASE 21
ErrMessage="运行时,不正确的引用函数"
CASE 22
ErrMessage="未知的对象类型"
CASE 23
ErrMessage="不能将某种数据类型的对象赋值为其它数据类型的对象"
CASE 24
ErrMessage="函数调用与其定义不匹配"
CASE 25
ErrMessage="DOUBLE或者REAL表达式溢出"
CASE 26
ErrMessage="不支持对某中数据类型的字段的赋值"
CASE 27
ErrMessage="非整型指数不能为负"
CASE 28
ErrMessage="某种数据类型的变量引起VBX错误"
CASE 29
ErrMessage="ANY数据类型变量需要非整组值"
CASE 30
ErrMessage="外部对象不支持该种数据类型"
CASE 31
ErrMessage="该种数据类型不支持外部对象"
CASE 32
ErrMessage="调用外部对象函数时,未找到函数名"
CASE 33
ErrMessage="调用外部对象函数时,参数类型不合法"
CASE 34
ErrMessage="调用外部对象函数时,使用不正确的参数个数"
CASE 35
ErrMessage="错误调用外部对象函数"
CASE 36
ErrMessage="访问外部对象属性时,未找到名称"
CASE 37
ErrMessage="访问外部对象属性时,类型不匹配"
CASE 38
ErrMessage="询问外部对象属性时,下标数目不正确"
CASE 39
ErrMessage="错误访问外部对象属性"
CASE 40
ErrMessage="与表达式中的数据类型不匹配"
CASE 41
ErrMessage="表达式中有不合法的数据类型"
CASE 42
ErrMessage="在DLL库函数中,运行时所指定的参数类型与所要求的参数类型不相同"
CASE 43
ErrMessage="父对象不存在"
CASE 44
ErrMessage="祖先的函数中具有发生冲突的参数及返回类型"
CASE 45
ErrMessage="外部表溢出"
CASE 46
ErrMessage="空的对象引用不能被赋值或传递给同类型的变量"
CASE 47
ErrMessage="变量需要数组值"
CASE 48
ErrMessage="数组的大小与对象的转换不匹配"
CASE 49
ErrMessage="数组的类型与对象的转换不匹配"
CASE 50
ErrMessage="分布式服务错误"
CASE 51
ErrMessage="函数或事件的参数不合法"
CASE 52
ErrMessage="分布式通讯错误"
CASE 53
ErrMessage="未激活所需服务器"
CASE 54
ErrMessage="服务器未接受请求"
CASE 55
ErrMessage="请求非正常终止"
CASE 56
ErrMessage="非完整的相应请求"
CASE 57
ErrMessage="未进行连接或连接没有准备好"
CASE 58
ErrMessage="对象实例不存在"
CASE 59
ErrMessage="不合法的列范围"
CASE 60
ErrMessage="不合法的行范围"
CASE 61
ErrMessage="将任意类型维数组不合法的转换成对象"
CASE 62
ErrMessage="服务器忙"
CASE 63
ErrMessage="无返回值的函数或事件用于表达式"
CASE 64
ErrMessage="赋值需要数组对象"
CASE ELSE
ErrMessage="未知错误"
END CHOOSE
ErrText+="错误编号:"+String(Error.Number)+"~r~n"
ErrText+="出错对象:"+Error.Object+"~r~n"
ErrText+="出错事件:"+Error.ObjectEvent+"~r~n"
ErrText+="出错行数:"+String(Error.Line)+"~r~n"
ErrText+="错误信息:"+ErrMessage+"~r~n"
IF Error.Object<>Error.WindowMenu THEN
CHOOSE CASE Lower(Left(Error.WindowMenu,2))
CASE "m_"
ErrText+="出错菜单"+Error.ObjectEvent+"~r~n"
CASE "w_"
ErrText+="出错窗口"+Error.ObjectEvent+"~r~n"
CASE "f_"
ErrText+="出错函数"+Error.ObjectEvent+"~r~n"
CASE ELSE
ErrText+="出错控件"+Error.ObjectEvent+"~r~n"
END CHOOSE
END IF
[PB编程]SystemError事件中的常用代码
最新推荐文章于 2019-11-19 10:17:43 发布