重置二级连动下拉框（急）

来源：百度知道 编辑：UC知道 时间：2024/05/08 09:10:25
我是二级连动下拉框，点“重置”后，应该是
第一个框显示初始值，
第二个框也显示相对应的值，
请问下该怎么做？？

使用COMBO1.LISTINDEX属性来联动
具体示例如下：
在窗体上放置2个COMBO和1个COMMAND,然后粘贴如下代码
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "1"
Combo2.Text = "a"
Case "2"
Combo2.Text = "b"
Case "3"
Combo2.Text = "c"
Case "4"
Combo2.Text = "d"
Case Else
Combo2.Text = ""
End Select
End Sub

Private Sub Command1_Click()
Combo1.ListIndex = 0
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
End With
With Combo2
.AddItem "a"
.AddItem "b"
.AddItem "c"
.AddItem "d"
End With