...第二个下拉菜单随之变化 比如两个下拉选框名称为combo1,combo2...

发布网友 发布时间：2023-12-23 04:49

我来回答

共2个回答

热心网友 时间：2024-03-03 04:57

假定班级和学生的数据从ACCESS数据库中调取，数据库引擎用ADO：

Private Sub Combo1_Click()
Dim conn As Object, rs As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb数据库文件路径
Set rs=CreateObject("adodb.recordset")
rs.open "select * from 学生表 where 班级='" & Combo1.Text & "'",conn,1,1
Combo2.Clear
Do Until rs.Eof
Combo2.AddItem rs("学生姓名") & ""
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Combo2.ListIndex = 0
End Sub

当然，以上数据库结构只是举例，不一定和你的相符。

热心网友 时间：2024-09-08 12:04

Private Sub Combo1_Click()
Combo2.AddItem "test"
End Sub

热心网友 时间：2024-09-08 12:00

假定班级和学生的数据从ACCESS数据库中调取，数据库引擎用ADO：

Private Sub Combo1_Click()
Dim conn As Object, rs As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb数据库文件路径
Set rs=CreateObject("adodb.recordset")
rs.open "select * from 学生表 where 班级='" & Combo1.Text & "'",conn,1,1
Combo2.Clear
Do Until rs.Eof
Combo2.AddItem rs("学生姓名") & ""
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Combo2.ListIndex = 0
End Sub

当然，以上数据库结构只是举例，不一定和你的相符。