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   
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   
ls_msg  =  "访问外部对象的属性错误" 
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  =  "函数/事件的参数列表错误"