当前位置:编程学习 > VB >>

VB combox控件的使用方法

我的数据库  表里面的这样的数据
ID   省份   城市
1    广东   汕头
2    广东   广州
3    广东   深圳
4    浙江   金华
5    浙江   杭州
6    浙江   永康
7    福建   厦门
8    福建   福州


我的窗体有两个COMBOX控件  
第一个就是要读取省份里的不相同的(到时读出来里同的内容为:广东,浙江,福建)
第二个就是,当我选择COMBOX  1  里面不同的省份时, COMBOX2 就是出现对应省份的城市
例如, 我选   广东,就出现,汕头,广州,深圳,    选择浙江就出现: 金华,杭州,永康 

求代码 或实例,谢谢先 本帖最后由 bcrun 于 2011-11-30 22:39:04 编辑 1楼正解 参考下面的代码吧:


Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordSet

conn.ConnectionString =... '不知你要边接的是什么数据库,自己写完整吧
rs.open "select distinct 省份 from yourtable order by 省份",conn
rs.MoveFirst
for i=1 to rs.recordcount
    Combo1.AddItem rs.fields("省份").value
    rs.MoveNext
next i
Combo1.Text = "请选择省份"
Combo2.Text = "请先选择省份"
End Sub

Private Sub Combo1_Click()
Combo2.Clear
Dim conn As New ADODB.Connection
Dim rs As New ADODB.RecordSet

conn.ConnectionString =... '不知你要边接的是什么数据库,自己写完整吧
rs.open "select 城市 from yourtable where 省份='" & trim(Combo1.Text) & "'",conn
rs.MoveFirst
for i=1 to rs.recordcount
    Combo2.AddItem rs.fields("城市").value
    rs.MoveNext
next i

End Sub




换用datacombo与数据库绑定使用。
引用 1 楼 cwctt 的回复:
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.Text
  Case "广东"
  Combo2.Text = "汕头"
  Combo2.AddItem "汕头"
  Combo2.AddItem "广州"
  Combo2.AddItem "深圳"
  Case "浙江"
  Combo2.Text = ……


不喷,你的态度和努力是可以肯定。
如果要写个全中国的,你会很辛苦。
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,