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沒有跟༐
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
