| 发表于：2007-09-21 11:33:263楼 得分:0 |
我以前是这样做的
'这个是程序中具体方法
private sub mnudata_export_click（)
on error goto er
'设置“cancelerror”为 true
cdgfile.cancelerror = true
' 设置过滤器
cdgfile.filter = "access file（*.mdb) ¦*.mdb "
cdgfile.filename = "dbfile "
' 显示对话框
cdgfile.showsave
' 拷贝文件
copyfile getcurrentpath & "database\ljyjtdc.mdb ", cdgfile.filename, 0
msgbox "数据库已经导入到文件 " & cdgfile.filename & "中！ ", vbinformation, cstinfo
exit sub
er:
'用户按了“取消”按钮不处理
if err.number <> 32755 then
msgbox "数据库导出失败！ ", vbexclamation, csterror
call showerror（ "frmmain ", "mnudata_export_click ")
end if
end sub
'这个是一个通用的方法
'********************************************************
'名称：showerror
'参数：mdlname模块名称
' subname过程名称
'返回：当前程序的路径
'功能：用于错误的集中处理
'说明：
'日期：1999-11-16
'程序员:
'********************************************************
public sub showerror（byref mdlname as string, byref subname as string)
dim intfilenumber as integer
'恢复正常状态的鼠标
screen.mousepointer = 0
'可处理的错误
'if err.number = 482 or err.number = 484 then
' msgbox "打印机错误，请检查是否安装了打印机！ ", 64, "错误 "
' exit sub
'end if
'写入错误日志文件,已备查阅
intfilenumber = freefile（)
open app.path & "\error.log " for append access write as intfilenumber
print #intfilenumber, format（now, "yyyy年mm月dd日 hh时mm分 ") & chr（124) & _
"模块名称: " & mdlname & chr（124) & _
"过程名称: " & subname & chr（124) & _
"错误号码: " & err.number & chr（124) & _
"错误描述: " & err.description
close intfilenumber
'弹出对话框告诉用户发生错误
msgbox "发生了如下的错误: " & chr（10) & chr（10) _
& "模块名称: " & mdlname & chr（10) _
& "过程名称: " & subname & chr（10) _
& "错误号码: " & err.number & chr（10) _
& "错误描述: " & err.description, 16, "零就业家庭调查 "
end sub | | |
|
