[PB编程]SystemError事件中的常用代码
来源:互联网 发布:c语言标志变量 编辑:程序博客网 时间:2024/06/15 02:59
[PB编程]SystemError事件中的常用代码STRING ErrMessageSTRING ErrTextIF Error.Number=0 THEN RETURNCHOOSE 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 CHOOSEErrText+="错误编号:"+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 CHOOSEEND IF