VB-小問題請教
Private Sub Form_Load()
Call WorkBusying
strRST_SQL = "select PD002 from DGMOCPD where PD001 like '%停機%' and PD005=0 group by PD002 order by PD002"
Call SetRSTReadOnly(strRST_SQL)
Combo5.Clear
If Not (rst.BOF And rst.EOF) Then
rst.MoveFirst
Do While Not rst.EOF
Combo5.AddItem CH_STR(rst.Fields(0).Value)
rst.MoveNext
Loop
End If
Combo5.ListIndex = 2
If Combo5.Text <> "" Then
strRST_SQL = "select pf011 from dgmocpf inner join dgmocpd on pf010=pd002 and pd002='" & Combo5.Text & "'"
Call SetRSTReadOnly(strRST_SQL)
If rst.RecordCount > 0 Then
txt1(9).Text = Trim(rst.Fields(0).Value)
Else
txt1(9).Text = ""
End If
Else
txt1(9).Text = ""
End If
Call WorkNormal
End Sub
因為Combo5.text為可選擇的， txt1(9).Text默認為暗色不可選擇及修改，
根據Combo5.text選的值帶出相應的說明(txt1(9).Text)，
現在代碼執行之後Combo5.text選擇其他選項的時候txt1(9).Text沒有跟༐
相关问答：
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
