Question

加急。高分求助 VB comboox的相关问题，创建两个combobox，类似于先选择省份再选择这个省份里面的区域一样

求助 VB comboox的相关问题，创建两个combobox，类似于先选择省份再选择这个省份里面的区域一样
比如先在combobox1选了省份，怎么才能让combobox2出来这个省份的选项呢，就是要做combobox2的下拉菜单。

Answer 1

在combobox1的change事件中，读取combobox1当前被选中的省份值，根据这个值查询出相关的区域，并依次填充到combobox2。
这样每当combobox1选择项发生改变时，combobox2就会跟随变换。

追问

请问这个程序要怎么编写呢？

Answer 2

Private Sub Combo1_Change()

Select Case Combo1.Text
Case "广西"
Combo2.Clear
Combo2.AddItem "南宁"
Combo2.AddItem "桂林"
Combo2.AddItem "柳州"
Combo2.ListIndex = 0
Case "广东"
Combo2.Clear
Combo2.AddItem "广州"
Combo2.AddItem "深圳"
Combo2.AddItem "佛山"
Combo2.ListIndex = 0
End Select
End Sub

追问

Private Sub Form_Load()
Combo1.AddItem "广西"
Combo1.AddItem "广东"
Combo1.Text = ""
End Sub
我按照你说的写了这部分之后加了你写的，可是编译不成功，请问怎么回事呢

追答

Private Sub Combo1_Click()
Call Combo1_Change
End Sub
再加上这个，因为用鼠标点击选择是不会自动触发change 事件的，上面那样让他跳转过去 或者在click事件里面加上change里面的代码。

追问

请问这种程序要怎么编写呢，拜托帮我忙， 我会追加的，把我的财富值都给你都行。。。

追答

图片也看不出什么意思。
还有我对财富不感兴趣。

Answer 3

不知道你的数据怎么存储的，我举个例子给你，希望选为满意答案，本人急需
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.Caption
Case "湖南”"
Combo2.AddItem "长沙"
Combo2.AddItem "株洲"
Case "山东"
Combo2.AddItem "济南"
Combo2.AddItem "青岛"
End Select
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
End Sub