[PB编程]SystemError事件中的常用代码

 

[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