UC知道简单的VB 程序
来源：百度知道 编辑：UC知道 时间：2024/05/17 00:37:20
Private Sub Combo1_Click()
Dim rsclass3 As New ADODB.Recordset
Set rsclass3 = New ADODB.Recordset
Dim Sjh As String
kmstring = Combo1.Text
'MsgBox "", "1"
'MsgBox "", KmString
Sjh = "select distinct 试卷号 from 试卷信息 where 科目 = '" & kmstring & "'"
rsclass3.Open Sjh, Db
Combo2.Clear
While Not rsclass3.EOF
Combo2.AddItem rsclass3("试卷号")
rsclass3.MoveNext
Wend
Combo2.ListIndex = 0
End Sub
请各位朋友帮忙啊，急用！！！！！！
这是个试卷生成系统的部分代码，请帮忙介绍一下什么意思？
每一步骤的解释．
Dim rsclass3 As New ADODB.Recordset
Set rsclass3 = New ADODB.Recordset
Dim Sjh As String
kmstring = Combo1.Text
'MsgBox "", "1"
'MsgBox "", KmString
Sjh = "select distinct 试卷号 from 试卷信息 where 科目 = '" & kmstring & "'"
rsclass3.Open Sjh, Db
Combo2.Clear
While Not rsclass3.EOF
Combo2.AddItem rsclass3("试卷号")
rsclass3.MoveNext
Wend
Combo2.ListIndex = 0
End Sub
请各位朋友帮忙啊，急用！！！！！！
这是个试卷生成系统的部分代码，请帮忙介绍一下什么意思？
每一步骤的解释．
你连出了什么问题都不说急有啥用
应该是数据库操作的一种啦!
用的是select
意思是从试卷信息中找到科目是kmstring 的无重复内容
试试Combo2.AddItem rsclass3("试卷号").value