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与数据库绑定使用。
不喷,你的态度和努力是可以肯定。
如果要写个全中国的,你会很辛苦。
补充:VB , 基础类