Combo2根据Combo1选择的内容生成,如何编写代码

来源：百度知道 编辑：UC知道 时间：2024/05/10 11:37:58

窗体放两个COMBOBOX

Private Sub Combo1_Click()
Select Case Combo1.Text
Case 1
Me.Combo2.Clear
Combo2.Text = 1.1
Me.Combo2.AddItem 1.1
Me.Combo2.AddItem 1.2
Me.Combo2.AddItem 1.3
Case 2
Me.Combo2.Clear
Combo2.Text = 2.1
Me.Combo2.AddItem 2.1
Me.Combo2.AddItem 2.2
Me.Combo2.AddItem 2.3
Case 3
Me.Combo2.Clear
Combo2.Text = 3.1
Me.Combo2.AddItem 3.1
Me.Combo2.AddItem 3.2
Me.Combo2.AddItem 3.3
End Select
End Sub

Private Sub Form_Load()
Me.Combo2.Clear
Me.Combo1.AddItem 1
Me.Combo1.AddItem 2
Me.Combo1.AddItem 3

End Sub