首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

运行时出错‘-2147206461’解决方案

2012-01-26 
运行时出错‘-2147206461’在VB中用到过水晶报表,在编辑状态下一切都好用。可是编译成EXE文件后,打印时出错:“

运行时出错‘-2147206461’
在VB中用到过水晶报表,在编辑状态下一切都好用。
可是编译成EXE文件后,打印时出错:
“运行时错误‘-2147206461’(80043ac3)未找到文件”

请问这是怎么回事呢〉
急死了!
请大虾们指点,不胜感激,必以高分相送。

[解决办法]
可能是路径的问题
[解决办法]
代码, 呢??
建议增加这个函数
'*************************************************************************
'**Function : OutPutErrMsg
'**Input : NULL
'**Output : NULL
'**Description : WRITE INFORMATION TO TXT WHEN ERR HAPPEN
'**Global :
'**Modal :
'**Writer : YONGJUN-ZOU(BECON)
'**Date : 2007-04-17 14:41:09
'**Version : V1.0.0
'*************************************************************************
Public Sub OutPutErrMsg(FunctionName As String, ModuleName As String)

Dim lngErrFileNo As Long
lngErrFileNo = FreeFile
Open App.Path & "\Errmsg.txt " For Append As lngErrFileNo
Print #lngErrFileNo, "ErrMsg: " & Format$(Now, "YYYY-MM-DD HH:MM:SS ") & ", " & Err.Number & ", " & Err.Description & ", " & FunctionName & ", " & ModuleName
Close #lngErrFileNo

End Sub

在其他函数里面使用,记录错误的模块

热点排行
Bad Request.