怎么实现在combo中选择地区名而另一个combo中出现对应城市的功能??

Question

怎么实现在combo中选择地区名而另一个combo中出现对应城市的功能??
比如:
我在第一个选择四川
另一个就对应出来四川的城市列表:成都
                               乐山
                               绵阳这样的效果~
那位大虾帮帮我啊~
急啊!!!我弄了好久都不行啊~~
我用的是datacombo控件
给个具体的代码吧谢了先........

Answer 1

可以利用datacombo控件的Boundcolumn属性设的值（比如设为省编号字段）做为另一个combo的检索条件

Answer 2

我没用过datacombo，不过combobox实现也应该差不多。
以下是代码：
form1上放两个combobox:combo1和combo2Private Sub Combo1_Click()
    Select Case Combo1.List(Combo1.ListIndex)
        Case "四川"
            With Combo2
                .Clear
                .AddItem "成都"
                .AddItem "绵阳"
                .AddItem "攀枝花"
            End With
            
        Case "安徽"
            With Combo2
                .Clear
                .AddItem "合肥"
                .AddItem "安庆"
                .AddItem "芜湖"
            End With
    End Select
End SubPrivate Sub Form_Load()
    Combo1.AddItem "四川"
    Combo1.AddItem "安徽"
End Sub

Answer 3

表a:omitID(编号） omitName（省名称）
表b:cityID(编号） cityName（城市名称） omitID(所属省的编号） 
datacombo1.rowsource=adodc1  
datacombo1.listfiled=omitName
datacombo1.Boundcolumn=omitID
datacombo2.rowsource=adodc2
datacombo2.listfiled=cityNamePrivate Sub Form_Load()
Adodc1.RecordSource = "select * from a"
Adodc1.Refresh
Adodc2.RecordSource = "select * from b"
Adodc2.Refresh
End SubPrivate Sub DataCombo1_Click(Area As Integer)
Adodc2.RecordSource = "select * from b where omitID='" & DataCombo1.BoundText & "'"
Adodc2.Refresh
End Sub

Answer 4

谢谢大哥啊!!
帮了我的大忙啊,感激啊!!!能给我留个邮箱吗??
我的[email protected]想向你学习啊...

Answer 5

不用客气，我也是新手，以后多多交流
[email protected]