高分求答案了，vb 程序在调试状态下可以正常执行，但是在运行状态下却不能正常执行，这是为什么？
1.不是路径问题
2.我做的东东主要是一个大的软件中的一个插件。
2.代码如下：
Public Function GetAutoOrderGtCode() As String
'On Error GoTo error1
'On Error Resume Next
GetAutoOrderGtCode = ""
Dim objGtCode As PIMSGTCodeExecutor
Set objGtCode = m_Session.GetGTCodeIntergration("PIMSCodeIntegration.PIMSGTCodeExecutor")
If Not objGtCode Is Nothing Then
Dim strCode As String
If objGtCode.Initialize(m_Session) <> 0 Then
If IsAutoOrderCode = True Then
objGtCode.AutoOrderCode m_ObjClassID, strCode
End If
Else
MsgBox "无法获取企业编码，请确认编码系统是否正确安装", vbInformation, gstrTitle
End If
If Not strCode = "" Then
GetAutoOrderGtCode = strCode
StrTmpCode = strCode
ISUseGTCode = True
End If
End If
' Exit Function
'error1:
' MsgBox Err.Description, vbInformation, gstrTitle
End Function
问题主要出在
If objGtCode.Initialize(m_Session) <> 0 Then
上，在调试状态下，可以走到
MsgBox "无法获取企业编码，请确认编码系统是否正确安装", vbInformation, gstrTitle
这一步，但是在运行状态下发现，他直接跳出了GetAutoOrderGtCode方法，请问高手这是为什么？
[解决办法]
可能是在msgbox 之前的代码里出现了错误,或者在funtion之外就出现错误了
[解决办法]
搞了半天就是 F8单步执行能走到If objGtCode.Initialize(m_Session) <> 0 Then
没断点 就提示GetAutoOrderGtCode方法内有错误
。。。。。
[解决办法]
Dim objGtCode As PIMSGTCodeExecutor
Set objGtCode = m_Session.GetGTCodeIntergration("PIMSCodeIntegration.PIMSGTCodeExecutor")
If Not objGtCode Is Nothing Then
