VB中MsgBox的问题！！！

[qixingl]

VB6中，怎么有时用MsgBox造成程序死了或自动退出，而且是在编译成EXE时才成这样，在调试时又不出现这中情况。
那位遇到过，给个解决办法

[dabie]

因该是代码问题,这个只能自己慢慢找原因

[qixingl]

代码已经检查好多遍了，而且只是在编译好后才出现，在VB6.0环境调试没问题，正常弹出MsgBox,在EXE下走到这就死了

[舉杯邀明月]

没遇到过这样的现象。

[波导终结者]

换种编译模式，比如P-Code试试，或者改下MsgBox的参数，比如只有msgbox "ddd"试试，缩小范围。
真不行就用调试器载入试试。

[cbm6666]

"代码已经检查好多遍了" 观念或思路不对看百遍与看一遍又有啥区别 ?

把代码贴出来看看吧.

[qixingl]

Private Sub SearchLatentContact(sContactID As String)

Dim sSql As String
Dim Ret As Long
Dim sXml As String
Dim i As Integer
' Dim sTemp As String

On Error Resume Next

'2008-1-28 潜在界面增加“沟通过程”，多选，内容如下6项
sSql = "select latentcontact.contactid,latentcontact.name,latentcontact.sex,latentcontact.note,product.scode,latentcontact.result,latentcontact.reason,latentcontact.realcontactid,product.prodname,product.recid,latentcontact.question,latentcontact.communication1,latentcontact.communication2,latentcontact.communication3,latentcontact.communication4,latentcontact.communication5,latentcontact.communication6 " & _
"From latentcontact, latentproduct,product " & _
"where latentcontact.contactid = latentproduct.contactid and latentproduct.prodid = product.recid and product.recid = (select min(prodid) From latentproduct where latentproduct.contactid = latentcontact.contactid) " & _
"and latentcontact.contactid='" & sContactID & "' "
Call ClearedData(20)

edPdata(0).sName = "NAME"
edPdata(0).sValue = sSql
edPdata(0).iType = iaUserData

sXml = oIAApp.CreateRequest("ExecSQL", edPdata)
If Len(sXml) <= 0 Then
Exit Sub
End If
Ret = tcpClient.CSAP_Call(sXml) '发送请求
If AnalyRes(Ret) = 1 Then '分析请求返回的结果: 0 成功,1 失败
Exit Sub
End If
Call tcpClient.GetData(sXml)
If oIAApp.AnalyXML(sXml) = iaTransSuccess Then
Call oIAApp.GetColAndRowNumber(iColnum, iRownum)
If iRownum > 0 Then

Else
MsgBox "没有检索到潜在客户信息！"
End If
End If

Call SearchLatentPhone(sContactID)

If Customer.CONTACT.ContactID <> "" Then
Call SearchAllContact(Customer.CONTACT.ContactID, iCurContact)
End If

End Sub

[qixingl]

我还发现把MsgBox拿到if 外面就好了，放在里面就不行

[-晴天]

应该不是MSGBOX的事情.

[cbm6666]

我晕啊.....这样子写代码, 牛....我也服了, 越看头越麻..............

设计时期的路径是在 ?:\Program Files\Microsoft Visual Studio\VB98

你编译成 exe 后是在那里运行的 ? 检查一下你的路径吧.

虽然没有条件可以测试你的代码, 而且代码也看不下去了, 但可以10000% 肯定,错不在 Msgbox

[爱我的人请呼吸]

　　那句SQL看了头皮发麻～～


　

[knowledge_Is_Life]

不明LZ在说什么