菜鸟请教，在线等侯！！！！

Question

各位高手：
  在下有一个问题请教大家：
     我在编程时想把combobox2.additem受combobox1.additem的调用：
      比如我的combobox1.additem 里面是系部。
       而combobox2.additem 是全院班级。当我选中一个系部时，那么 combobox2.additem里面就只显示出这个系的班级供人选择。 
         我只编到：
               Private Sub Form_Load()
ComboBox1.AddItem "计算机系"
ComboBox1.AddItem "生物系"
ComboBox1.AddItem "文秘系"
ComboBox2.AddItem "高职011"
ComboBox2.AddItem "高职012"
ComboBox2.AddItem "园林9"
ComboBox2.AddItem "园林8"
ComboBox2.AddItem "文秘4"
ComboBox2.AddItem "文秘5"
ComboBox2.AddItem "文秘9"
combobox1_keypress (Key)
End Sub
        这里就不会了。
    请高手指教！！！！！！

Answer 1

'在combobox的onclick事件中添加如下代码private sub combobox2_onclick()
  select case combobox1.text
    case "计算机系"
      combobox2.additem "某某班"
    case "生物系"
      combobox2.additem "某某班"
    case ...
'剩下的你自己添加吧
end sub

Answer 2

存到数组中做也可以，但是如果数据量太大的话还是用数据库加SQl比较方便

Answer 3

把2种信息分别写到array1和array2中，其中combox2中的信息的内容要包含combox1中的信息在combox1的selectChang事件中写处理，用当前的text去array2中找对应的信息

Answer 4

combox2使用一个数据库保寸
把combox1的内容做为combox2的关键字做检索就可以了啊

Answer 5

Private Sub Combo1_Click()
    Select Case Combo1.Text
        
            Case "a"
                 With Me.Combo2
                 .Clear
                .AddItem "a"
                .AddItem "b"
                .AddItem "c"
                End With
            Case "1"
                With Me.Combo2
                .Clear
                .AddItem "1"
                .AddItem "2"
                .AddItem "3"
                End With
       
    End Select
End Sub

Answer 6

上面少段代码Option ExplicitPrivate Sub Combo1_Click()
    Select Case Combo1.Text
        
            Case "a"
                 With Me.Combo2
                 .Clear
                .AddItem "a"
                .AddItem "b"
                .AddItem "c"
                End With
            Case "1"
                With Me.Combo2
                .Clear
                .AddItem "1"
                .AddItem "2"
                .AddItem "3"
                End With
       
    End Select
End SubPrivate Sub Form_Load()With Me.Combo1
    .AddItem "a"
    .AddItem "1"
End With
End Sub