Question

如何编写，当combo1中选Acombo2中只显示A-1，A-2，选B则出现B-1，B-2

Answer 1

Private Sub Combo1_Click()
Combo2.Clear  'Combo2清除已有选项
Combo2.AddItem Combo1.Text & "-1"  'combo2新增选项，第一个字母与Combo1所选择保持一致
Combo2.AddItem Combo1.Text & "-2"
Combo2.ListIndex = 0  '令combo2缺省选择第一项
End Sub
Private Sub Form_Load()
Combo1.Clear  'Combo1清除已有选项
Combo1.AddItem "A" 'combo1新增选项
Combo1.AddItem "B"
Combo1.ListIndex = 0 '令combo1缺省选择第一项
End Sub

Answer 2

你复制下面代码，试验一下，体会以下！
Option Explicit
Private Sub Combo1_Click()
Combo2.Clear
Combo2.AddItem Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2"
Combo2.Text = Combo2.List(0)
End Sub
Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2"
Combo2.Text = Combo2.List(0)
End Sub

追问

大大能不能再每条的后面加上注解！谢谢

追答

Option Explicit
Private Sub Combo1_Click()
Combo2.Clear '清除组合框Combo2里原来已经添加的项目
Combo2.AddItem Combo1.Text & "-1" '添加一个项目，项目内容为：Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2" '添加一个项目，项目内容为：Combo1.Text & "-2"
Combo2.Text = Combo2.List(0) '设置组合框Combo2里的文本框里显示的内容为第0项
End Sub
Private Sub Form_Load()
Combo1.AddItem "A" '添加一个项目，项目内容为："A"
Combo1.AddItem "B" '添加一个项目，项目内容为："B"
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text & "-1"
Combo2.AddItem Combo1.Text & "-2"
Combo2.Text = Combo2.List(0)
End Sub