用代码调试的时候没问题,但编绎后执行exe文件报这个错误,为什么,真搞不懂了,找不到问题所在,请哪位高兄帮帮忙
解决方案 »
- 伸冤啊!!!没高手了吗?!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 一个我觉得好难实现的问题!!!
- form_load不能刷新,请大家一定要帮我!!!
- 请问如何在状态栏中加入进度条呢?
- 请教如何使用commondialog实现保存和另存为的功能,非常感谢!
- Activex Exe 变量
- 请高手帮我看看Recordset的一些用法我对它不是很了解谢谢我在线等待!!!
- 用VB使用ADO读取excel文件时出现数据丢失的问题.
- 怎么样能得到datagrid中的某一条纪录(通过鼠标双击这条纪录)
- 中国队,加油!!!加油!!!加油!!!阿曼要靠马来西亚的狗裁判取胜吗?
- BeginPath,EndPath API函数在Visual Basic中有何用途?
- 如何使DLL里的FORM成为MDI的子窗体?
设置“选项”->"通用"->"错误捕获"为“发生错误时中断”,然后用CTRL+F5快速编译一下。看能否发现问题所在。
If g_IfInCombox(Trim(Me.cmbDetail.Text), Me.cmbDetail) = 1 Then
strGoodsID = Left(Trim(Me.cmbDetail.Text), InStr(Trim(Me.cmbDetail.Text), "|") - 1)
strSQL = "select isnull(ER_fvarRowsName,''),isnull(ER_fvarRowsModel,''),isnull(ER_fvarUnit,'') from RowsInfo where ER_fvarRowsCode='" & strGoodsID & "'"
Set rstSQL = g_Conn.Execute(strSQL)
If Not rstSQL.EOF Then
For i = 0 To 2
Me.txtDetail(i + 2).Text = rstSQL.Fields(i)
Next
If Me.txtDetail(8).Enabled = True Then Me.txtDetail(8).SetFocus
End If
Else
MsgBox "该物料编号:" & Trim(Me.cmbDetail.Text) & "不存在,请检查!", vbCritical + vbOKOnly, "系统提示"
If Me.cmbDetail.Enabled = True Then Me.cmbDetail.SetFocus
End If
If Me.txtDetail(8).Enabled = True Then
if Me.txtDetail(8).Visible then
Me.txtDetail(8).SetFocus
end if
endifIf Me.cmbDetail.Enabled = True Then
Me.cmbDetail.Visible then
Me.cmbDetail.SetFocus
end if
endif