Question

VB中如何实现当第一个下拉菜单变化选项,第二个下拉菜单随之变化 比如两个下拉选框名称为combo1,combo2

我的意思表达错误，不好意思，我的意思，第一个下拉菜单的选项发生变化，比方说是班级，班级变了，第二个下拉选项是学生，学生的姓名也应该随之发生相应变化！~~感谢您的回答，也希望您能补充！~

Answer 1

假定班级和学生的数据从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

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

Answer 2

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