string ls_msg
choose case error.number
case 1//by zero
ls_msg = "发生被 0 除错误"
case 2//2 Null object reference
ls_msg = "空对象引用"
case 3//3 Array boundary exceeded
ls_msg = "数组越界"
case 4//4 Enumerated value is out of range for function
ls_msg = "枚举值超出函数的范围"
case 5//5 Negative value encountered in function
ls_msg = "函数中遇到负数"
case 6//6 Invalid DataWindow row/column specified
ls_msg = "数据窗口的列或行非法" 遇到了是因为画好的列被无意删除了，即列找不到了
case 7//7 Unresolvable external when linking reference
ls_msg = "链接调用时不能解决外部对象"
case 8//8 Reference of array with null subscript
ls_msg = "使用空下标引用数组"
case 9//9 DLL function not found in current application
ls_msg = "当前应用中没有找到动态链接库的函数"
case 10//10 Unsupported argument type in DLL function
ls_msg = "使用了动态链接库函数不支持的参数类型"
case 11//11 Object file is out of date and must be converted to current version
ls_msg = "对象文件已经过时并且必须使用当前的版本"
case 12//12 DataWindow column type does not match GetItem type
ls_msg = "数据窗口的列的数据类型与GetItem函数的类型不符"
case 13//13 Unresolved property reference
ls_msg = "属性引用尚未解决"
case 14//14 Error opening DLL library for external function
ls_msg = "为外部函数调用而打开动态链接库时发生错误"
case 15//15 Error calling external function name
ls_msg = "调用外部函数时发生错误"
case 16//16 Maximum string size exceeded
ls_msg = "字符串长度超越了最大限制"
case 17//17 DataWindow referenced in DataWindow object does not exist
ls_msg = "数据窗口引用的数据窗口对象不存在"
case 18//18 Function doesn‘t return value
ls_msg = "函数没有返回值(应该有而没有)"
case 19//19 Cannot convert name in Any variable to name --> 有个变量是类型A的，赋值的时候定义成string了，然后报这个错
ls_msg = "不能转换Any类型的变量到另一个类型"
case 20//20 Database command has not been successfully prepared
ls_msg = "数据库命令没有成功准备"
case 21//21 Bad runtime function reference
ls_msg = "引用了错误的运行时函数"
case 22//22 Unknown object type
ls_msg = "不知道的对象类型"
case 23//23 Cannot assign object of type name to variable of type name
ls_msg = "不能将对象赋给变量，两种类型不能赋值"
case 24//24 Function call doesn‘t match its definition
ls_msg = "函数调用格式与其定义不一致"
case 25//25 Double or Real expression has overflowed
ls_msg = "双精度型或实型表达式溢出"
case 26//26 Field name assignment not supported
ls_msg = "不支持这种字段赋值"
case 27//27 Cannot take a negative to a noninteger power
ls_msg = "不能计算一个负数的非整数次方"
case 28//28 VBX Error: name
ls_msg = "VBX 错误"
case 29//29 Nonarray expected in ANY variable
ls_msg = "ANY 类型变量期待非数组类型"
case 30//30 External object does not support data type name
ls_msg = "外部对象不支持这种变量类型"
case 31//31 External object data type name not supported
ls_msg = "外部对象的数据类型不支持"
case 32//32 Name not found calling external object function name
ls_msg = "调用外部对象函数时函数名称没有找到"
case 33//33 Invalid parameter type calling external object function name
ls_msg = "调用外部对象函数时使用了错误的参数类型"
case 34//34 Incorrect number of parameters calling external object function name
ls_msg = "调用外部对象函数时使用的参数个数不对"
case 35//35 Error calling external object function name
ls_msg = "调用外部对象的函数错误"
case 36//36 Name not found accessing external object property name
ls_msg = "访问外部对象属性时属性名称没有找到"
case 37//37 Type mismatch accessing external object property name
ls_msg = "访问外部对象属性时使用了不匹配的类型"
case 38//38 Incorrect number of subscripts accessing external object property name
ls_msg = "访问外部对象属性时使用了错误的下标"
case 39//39 Error accessing external object property name // Error accessing external object property text
ls_msg = "访问外部对象的属性错误"
报错是因为这个text中出现了特殊符号
case 40//40 Mismatched ANY data types in expression
ls_msg = "表达式中ANY数据类型不匹配"
case 41//41 Illegal ANY data type in expression
ls_msg = "表达式中使用了非法的ANY数据类型"
case 42//42 Specified argument type differs from required argument type at runtime in DLL function name
ls_msg = "指定的参数类型与动态链接库中的函数所需要的参数类型不一致"
case 43//43 Parent object doesn‘t exist
ls_msg = "父对象不存在"
case 44//44 Function has conflicting argument or return type in ancestor
ls_msg = "函数与祖先的参数或返回值冲突"
case 45//45 Internal table overflow; maximum number of objects exceeded
ls_msg = "内部表溢出；对象的最大数目已经超越"
case 46//46 Null object reference cannot be assigned or passed to a variable of this type
ls_msg = "空对象引用不能赋值或传递给一个这种类型的变量"
case 47//47 Array expected in ANY variable
ls_msg = "ANY类型期待数组"
case 48//48 Size mismatch in array to object conversion
ls_msg = "将数组转换成对象时数组的大小不匹配"
case 49//49 Type mismatch in array to object conversion
ls_msg = "将数组转换成对象不匹配"
case 50//50 Distributed Service Error
ls_msg = "分布式服务错误"
case 51//51 Bad argument list for function/event
ls_msg = "函数/事件的参数列表错误"
case 52//52 Distributed Communications Error
ls_msg = "分布式通讯错误"
case 53//53 Requested server not active
ls_msg = "被请求的服务器没有激活"
case 54//54 Server not accepting requests
ls_msg = "服务器不接受请求"
case 55//55 Request terminated abnormally
ls_msg = "请求意外中断"
case 56//56 Response to request incomplete
ls_msg = "响应请求不完整"
case 57//57 Not connected
ls_msg = "没有连接"
case 58//58 Object instance does not exist
ls_msg = "对象实例不存在"
case 59//59 Invalid column range
ls_msg = "无效的列的范围"
case 60//60 Invalid row range
ls_msg = "无效的行的范围"
case 61//61 Invalid conversion of number dimensional array to object
ls_msg = "转换多维数组到一个对象无效"
case 62//62 Server busy
ls_msg = "服务器忙"
case 63//63 Function/event with no return value used in expression
ls_msg = "在表达式中函数/事件没有返回值"
case 64//64 Object array expected in left side of assignment
ls_msg = "赋值语句左边期待对象数组"
case 65//65 Dynamic function not found. Possible causes include: pass by value/reference mismatch
ls_msg = "动态函数没有找到，可能是因为：值传递/引用传递不匹配"
case 66//66 Invalid subscript for array index operation
ls_msg = "属组索引使用了非法的下标"
case 67//67 NULL object reference cannot be assigned or passed to an autoinstantiate
ls_msg = "空的对象引用不能赋值或传递给一个自动实例化对象"
case 68//68 NULL object reference cannot be passed to external DLL function name
ls_msg = "空的对象引用不能传递给外部动态链接库函数"
case 69//69 Function name cannot be called from a secured runtime session
ls_msg = "安全模式中不能调用该函数"
case 70//70 External DLL function name cannot be called from a secured runtime session
ls_msg = "安全模式中不能调用外部动态链接库函数"
case 71//71 General protection fault occurred
ls_msg = "发生一般的保护错误"
case 72//72 name failed with an operating system error code of number
ls_msg = "字段发生一个操作系统错误"
case 73//73 Reference parameters cannot be passed to an asynchronous shared/remote object method
ls_msg = "引用型参数不能传递给一个异步的共享/远程对象方法"
case 74//74 Reference parameters cannot be passed to a shared object method
ls_msg = "引用型参数不能传递给一个共享对象的方法"
case 75//75 The server has forced the client to disconnect
ls_msg = "服务器已经强制客户端断开连接"
case 76//76 Passing NULL as a parameter to external function name
ls_msg = "给外部函数传递了一个空值参数"
case 77//77 Object passed to shared/remote object method is not a nonvisual user object
ls_msg = "对象传递给共享/远程对象的方法不是一个不可视的用户对象"
case 78//78 Listen can only be done in Enterprise version of PowerBuilder
ls_msg = "监听只能在企业版的PowerBuilder中使用"
case 79//79 The argument to name must be an array
ls_msg = "参数必须是一个数组"
case 80//80 The server has timed out the client connection
ls_msg = "客户端尝试连接的时间已经超出服务器设置的限制时间"
case 81//81 Function argument file creator must be a four character string
ls_msg = "函数参数文件创建者必须是一个四个字符的字符串"
case 82//82 Function argument file type must be a four character string
ls_msg = "函数参数文件类型必须是一个四个字符的字符串"
case 83//83 Attempt to invoke a function or event that is not accessible
ls_msg = "试图调用一个不可存取的函数或事件"
case 84//84 Wrong number of arguments passed to function/event call
ls_msg = "在函数/事件中传递的参数个数错误"
case 85//85 Error in reference argument passed in function/event call
ls_msg = "在函数/事件中传递的引用型参数错误"
case 86//86 Ambiguous function/event reference
ls_msg = "引用不明确的函数/事件"
case 87//87 The connection to the server has been lost
ls_msg = "与服务器的连接已经丢失"
case 88//88 Cannot ask for ClassDefinition Information on open painter: name
ls_msg = "不能在打开的画笔中查询类定义信息"
case 85//89 5.0 style proxy objects are not supported. Copy the new style proxy that was generated at migration time
ls_msg = "5.0中的类型代理对象不支持，拷贝移植时产生的新的类型代理"
case 90//90 Cannot assign array of type name to variable of type array of name
ls_msg = "这两种数据类型的数组不能赋值"
case 91//91 Cannot convert any in Any variable to string.Possible cause uninitialized value.
ls_msg = "不能将任意型变量转变成字符型变量"
case else
ls_msg = ‘未知错误, 请记录错误号并与管理员联系‘
end choose
原文地址：https://www.cnblogs.com/lxxwyhhsh/p/9280709.html