超豪華的出錯代碼

 String ls_ErrMsg
 
 Choose Case error.number 
        Case 1   
           ls_ErrMsg = "被零除" 
        Case 2   
           ls_ErrMsg = "引用空對象" 
        Case 3   
           ls_ErrMsg = "數組越界" 
        Case 4   
           ls_ErrMsg = "枚舉值超出函數范圍" 
        Case 5   
           ls_ErrMsg = "函數中遇到負值" 
        Case 6   
           ls_ErrMsg = "指定的數據窗口行/列無效" 
        Case 7   
           ls_ErrMsg = "聯接引用時，出現不可解決的外部引用" 
        Case 8   
           ls_ErrMsg = "引用帶有空下標的數組" 
        Case 9   
           ls_ErrMsg = "DLL 函數未在當前程序中"
    Case 10   
           ls_ErrMsg = "DLL 函數不支持的參數類型" 
        Case 11   
           ls_ErrMsg = "對象文件已過期，必須轉化為當前版本"
    Case 12   
           ls_ErrMsg = "數據窗口列類型與 GetItem 類型不匹配" 
    Case 13   
           ls_ErrMsg = "不可知的屬性引用" 
    Case 14   
           ls_ErrMsg = "為外部函數打開錯誤 DLL 庫" 
    Case 15   
           ls_ErrMsg = "錯誤調用外部函數" 
    Case 16   
           ls_ErrMsg = "超出最大字符串的長度" 
    Case 17   
           ls_ErrMsg = "數據窗口控件中引用的數據窗口對象不存在" 
    Case 18   
           ls_ErrMsg = "函數未返回值" 
    Case 19  
           ls_ErrMsg = "不能將任意變量中 NAME 轉化為 NAME" 
    Case 20   
           ls_ErrMsg = "沒有成功地准備好數據庫命令" 
    Case 21   
           ls_ErrMsg = "運行時，不正確地引用函數 " 
    Case 22   
           ls_ErrMsg = "不可知的對象類型" 
    Case 23   
           ls_ErrMsg = "不能將 NAME 類型的對象賦值為 NAME 類型的對象" 
    Case 24   
           ls_ErrMsg = "函數調用與其定義不匹配" 
    Case 25   
           ls_ErrMsg = "DOUBLE 或 REAL 表達式溢出" 
    Case 26   
           ls_ErrMsg = "不支持對 NAME 字段的賦值" 
    Case 27   
           ls_ErrMsg = "非整型指數不能為負" 
    Case 28   
           ls_ErrMsg = "VBX 錯誤：NAME"
    Case 29   
           ls_ErrMsg = "ANY 變量需要非整組值" 
    Case 30   
          ls_ErrMsg = "外部對象不支持數據類型：NAME" 
    Case 31  
          ls_ErrMsg = "不支持外部對象數據類型：NAME" 
    Case 32  
          ls_ErrMsg = "調用外部對象函數 NAME 時，未找到名字" 
    Case 33   
          ls_ErrMsg = "調用外部對象函數 NAME 時，參數類型不合法" 
    Case 34   
          ls_ErrMsg = "調用外部對象函數 NAME 時，使用不正確的參數數目" 
    Case 35   
          ls_ErrMsg = "錯誤調用外部對象函數 NAME" 
    Case 36   
          ls_ErrMsg = "訪問外部對象屬性 NAME 時，未找到名稱" 
    Case 37   
          ls_ErrMsg = "訪問外部對象屬性 NAME 時，類型不匹配" 
    Case 38   
          ls_ErrMsg = "詢問外部對象屬性 NAME 時，下標數目不正確" 
    Case 39   
          ls_ErrMsg = "錯誤訪問外部對象屬性 NAME" 
    Case 40   
          ls_ErrMsg = "與表達式中任意數據類型不匹配" 
    Case 41   
          ls_ErrMsg = "表達式中有不合法的任意數據類型" 
    Case 42   
          ls_ErrMsg = "在 DLL 函數 NAME 中，運行時所指定的參數類型與求的參數類型不相同" 
    Case 43   
          ls_ErrMsg = "父對象不存在" 
    Case 44   
          ls_ErrMsg = "祖先的函數中具有發生沖突的參數及返回類型" 
    Case 45   
          ls_ErrMsg = "外部表溢出" 
    Case 46   
          ls_ErrMsg = "空的對象引用不能被賦值或傳遞給同類型的變量" 
    Case 47   
          ls_ErrMsg = "變量需要數組值"
    Case 48   
          ls_ErrMsg = "數組的大小與對象的轉換不匹配" 
    Case 49   
          ls_ErrMsg = "數組的類型與對象的轉換不匹配" 
    Case 50   
          ls_ErrMsg = "分布服務錯誤" 
    Case 51   
          ls_ErrMsg = "函數或事件的參數不合法" 
    Case 52   
          ls_ErrMsg = "分布通訊錯誤" 
    Case 53   
          ls_ErrMsg = "未激活所需服務器" 
    Case 54   
          ls_ErrMsg = "服務器未接受請求" 
    Case 55   
          ls_ErrMsg = "請求非正常終止" 
    Case 56   
          ls_ErrMsg = "非完整地相應請求" 
    Case 57   
          ls_ErrMsg = "未聯接" 
    Case 58   
          ls_ErrMsg = "對象實例不存在" 
    Case 59   
          ls_ErrMsg = "不合法的列范圍" 
    Case 60   
          ls_ErrMsg = "不合法的行范圍" 
    Case 61   
          ls_ErrMsg = "將 NUMBER 維數組不合法地轉換成對象" 
        Case 62   
          ls_ErrMsg = "服務器忙" 
        Case 63   
          ls_ErrMsg = "無返回值的函數或事件用于表達式" 
        Case 64   
          ls_ErrMsg = "賦值需要數組對象"  
        Case Else   
          ls_ErrMsg = "其他錯誤"
End Choose

dw_error.insertrow (0)
dw_error.setitem (1,"errornum",string(error.number))
dw_error.setitem (1,"message" ,ls_ErrMsg)
dw_error.setitem (1,"where"   ,error.windowmenu)
dw_error.setitem (1,"object"  ,error.object)
dw_error.setitem (1,"event"   ,error.objectevent)
dw_error.setitem (1,"line"    ,string(error.line))