vb中combobox1中选择省,combobox2中对应出现市,combobox3出现县,combobox4……以此类推。
展开全部
比如数据库是AA.mdb,数据表是省市表,有字段省、市、县等等,那么:
Private Sub Form_Load()
'连接数据库语句略
strSQL = "SELECT Distinct 省 FROM 省市表"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo1.AddItem RS!省 '这里给Combo1加载省名称
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'关闭数据库连接对象
End Sub
Private Sub Combo1_Click()
Combo2.Clear
'连接数据库语句略
strSQL = "SELECT Distinct 省,市 FROM 省市表 Where 省='" & Combo1.Text & "'"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo2.AddItem RS!市 '这里给Combo2加载市名称
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'关闭数据库连接对象
End Sub
Combo3与上面同理,在Private Sub Combo2_Click() 加载县名称,不再说了。
Private Sub Form_Load()
'连接数据库语句略
strSQL = "SELECT Distinct 省 FROM 省市表"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo1.AddItem RS!省 '这里给Combo1加载省名称
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'关闭数据库连接对象
End Sub
Private Sub Combo1_Click()
Combo2.Clear
'连接数据库语句略
strSQL = "SELECT Distinct 省,市 FROM 省市表 Where 省='" & Combo1.Text & "'"
RS.Open strSQL, db, 2, 2
Do While Not RS.EOF
Combo2.AddItem RS!市 '这里给Combo2加载市名称
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'关闭数据库连接对象
End Sub
Combo3与上面同理,在Private Sub Combo2_Click() 加载县名称,不再说了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
TableDI
2024-07-18 广告
2024-07-18 广告
VLOOKUP 是 Excel 中一个非常实用的函数,它允许用户在一个区域或表格的首列中查找特定值,并返回同一行中指定列中的值。当进行跨表匹配时,你可以使用 VLOOKUP 函数将两个不同表格中的数据关联起来。通过指定查找值、表格数组、列号...
点击进入详情页
本回答由TableDI提供
展开全部
都是考试题
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你要把数据库发过来看看才能写出代码
1426991913
1426991913
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询