Private Sub Combo1_Change() Combo2.Text = Combo1.Text'直接赋值 '或者 Combo2.ListIndex = Combo2.ListIndex'两边选择的下标是一样的 End Sub'不明白的就百度HI联系
