关于combobox的Click事件

Question

    例：  科目：combo1    <----选择科目，使下面combo组可见，并且下拉菜单显示其中的应有的章节
               
                章节
           选择题：combo2   <----选择板块，如：1，2，3
          单选题：combo2   <----选择板块，如：1，2，3
          多选题：combo2   <----选择板块，如：1，2，3
          阅读题：combo2   <----选择板块，如：1，2，3        
          综合题：combo2   <----选择板块，如：1，2，3
数据库：
表1
      
          科目名称表2     科目名称  题型  章节
问题是怎么让combo2组显示相应的章节？请各位大大帮帮忙！！  

Answer 1

DropDown事件中添加新的选项就可以了

Answer 2

Private Sub Combo2_Click()
  MsgBox Combo1.Text
End SubPrivate Sub Combo2_DropDown()
  Combo2.Clear
  If Combo1.Text = "222" Then
     Combo2.AddItem "ttttt"
     Combo2.AddItem "gggg"
  Else
     Combo2.AddItem "2222"
     Combo2.AddItem "5555"
  End If
End SubPrivate Sub Form_Load()
  Combo1.AddItem "5555"
  Combo1.AddItem "222"
End Sub

Answer 3

我的意思是  根据 表1的字段（科目） 查询表二的字段（科目）  在根据科目和题型在combo2组里显示相应的章节~~~

Answer 4

根据前面的选择组成不同的sql语句，查询后添加到combo2

Answer 5

那你需要有两个变量，也就是还需要一个combo，然后根据变量去查询数据返回recordset，然后绑定这个recordset到显示数据的combo就可以了

Answer 6

你把我的例子改一下,写成sql语句查询就可以了呀

Answer 7

Private Sub Combo1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Combo1.AddItem ""
    
    cn.CursorLocation = adUseClient
    cn.Open ""
    
    rs.Open "select 科目名称  ,题型  ,章节 from 表2", cn, adOpenStatic, adLockOptimistic    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            For i = 0 To UBound(Combo2)
                If Combo2(i).Tag = rs.Fields(1) Then
                    Combo2(i).AddItem rs.Fields(2)
                End If
            Next i
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
        
End SubPrivate Sub Form_Load()
    Dim i As Integer
    
    
    
    For i = 0 To UBound(Combo2)
        Combo2(i).Visible = False
    Next i
    
    Combo2().Tag = "选择题"
    Combo2().Tag = "单选题"
    Combo2().Tag = "多选题"
    Combo2().Tag = "阅读题"
    Combo2().Tag = "综合题"    
End SubPrivate Sub s_FillCombo1()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Combo1.AddItem ""
    
    cn.CursorLocation = adUseClient
    cn.Open ""
    
    rs.Open "select 科目名称 from 表1", cn, adOpenStatic, adLockOptimistic    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Combo1.AddItem rs.Fields(0)
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    
End Sub

Answer 8

漏了一点
Private Sub Combo1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Combo1.AddItem ""
    
    cn.CursorLocation = adUseClient
    cn.Open ""
    
    rs.Open "select 科目名称  ,题型  ,章节 from 表2", cn, adOpenStatic, adLockOptimistic    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            For i = 0 To UBound(Combo2)
                If Combo2(i).Tag = rs.Fields(1) Then
                    Combo2(i).AddItem rs.Fields(2)
                End If
            Next i
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
        
End SubPrivate Sub Form_Load()
    Dim i As Integer
    
    Call s_FillCombo1
    
    For i = 0 To UBound(Combo2)
        Combo2(i).Visible = False
    Next i
    
    Combo2(0).Tag = "选择题"
    Combo2(1).Tag = "单选题"
    Combo2(2).Tag = "多选题"
    Combo2(3).Tag = "阅读题"
    Combo2(4).Tag = "综合题"    
End SubPrivate Sub s_FillCombo1()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Combo1.AddItem ""
    
    cn.CursorLocation = adUseClient
    cn.Open ""
    
    rs.Open "select 科目名称 from 表1", cn, adOpenStatic, adLockOptimistic    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Combo1.AddItem rs.Fields(0)
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    
End Sub

Answer 9

还漏了一点 
Private Sub Combo1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    
    Combo1.AddItem ""
    
    cn.CursorLocation = adUseClient
    cn.Open ""
    
    rs.Open "select 科目名称  ,题型  ,章节 from 表2", cn, adOpenStatic, adLockOptimistic    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            For i = 0 To UBound(Combo2)
                If Combo2(i).Tag = rs.Fields(1) Then
                    Combo2(i).AddItem rs.Fields(2)
                End If
            Next i
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
        
    For i = 0 To UBound(Combo2)
        Combo2(i).Visible = True
    Next i
        
End SubPrivate Sub Form_Load()
    Dim i As Integer
    
    Call s_FillCombo1
    
    For i = 0 To UBound(Combo2)
        Combo2(i).Visible = False
    Next i
    
    Combo2(0).Tag = "选择题"
    Combo2(1).Tag = "单选题"
    Combo2(2).Tag = "多选题"
    Combo2(3).Tag = "阅读题"
    Combo2(4).Tag = "综合题"    
End SubPrivate Sub s_FillCombo1()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    Combo1.AddItem ""
    
    cn.CursorLocation = adUseClient
    cn.Open ""
    
    rs.Open "select 科目名称 from 表1", cn, adOpenStatic, adLockOptimistic    
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Combo1.AddItem rs.Fields(0)
            rs.MoveNext
        Wend
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    
End Sub