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沒有跟༐
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
