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沒有跟༐
相关问答：
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题：对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
就是设计一个计算机模拟考试系统，带有学生和管理员，所以登录窗体和主窗体想分开，登陆学生的显示学生的主窗体，登陆管理员显示管理主窗体，我只会一个窗体用一堆控件，现在享有多个主窗体，不知道怎么做，希望请大 ......
