问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

...第二个下拉菜单随之变化 比如两个下拉选框名称为combo1,combo2...

发布网友 发布时间:2023-12-23 04:49

我来回答

2个回答

热心网友 时间:2024-03-03 04:57

假定班级和学生的数据从ACCESS数据库中调取,数据库引擎用ADO:

Private Sub Combo1_Click()
Dim conn As Object, rs As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb数据库文件路径
Set rs=CreateObject("adodb.recordset")
rs.open "select * from 学生表 where 班级='" & Combo1.Text & "'",conn,1,1
Combo2.Clear
Do Until rs.Eof
Combo2.AddItem rs("学生姓名") & ""
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Combo2.ListIndex = 0
End Sub

当然,以上数据库结构只是举例,不一定和你的相符。

热心网友 时间:2024-09-08 12:04

Private Sub Combo1_Click()
Combo2.AddItem "test"
End Sub

热心网友 时间:2024-09-08 12:00

假定班级和学生的数据从ACCESS数据库中调取,数据库引擎用ADO:

Private Sub Combo1_Click()
Dim conn As Object, rs As Object
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb数据库文件路径
Set rs=CreateObject("adodb.recordset")
rs.open "select * from 学生表 where 班级='" & Combo1.Text & "'",conn,1,1
Combo2.Clear
Do Until rs.Eof
Combo2.AddItem rs("学生姓名") & ""
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Combo2.ListIndex = 0
End Sub

当然,以上数据库结构只是举例,不一定和你的相符。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
wps字体颜色改不了怎么办 玩lol我想走体格极端蛮王全攻击的那种符文怎么加求高手赐教 ,感激不... ...觉得不会玩,求高手赐教,个人觉得钱不够买装备,发育慢 ...加技能点,可以通地狱的,我玩的是1.11的,只为单机,求高手赐教... ...只有R技能的AD加成较高,为什么选AD呢,请高手赐教 lol小丑什么打法好(我现在用的是物攻流)出装也说说~请高手赐教~... 北京首都医科大附属附属复兴医院门诊部地址 首都医科大学附属医院首都医科大学附属复兴医院 北京复兴医院规模 求海贼王动画中所有红发香克斯的出镜 一汽大众速腾听歌时会黑屏是什么原因 何谓数域? 2020年8月19日十二生肖运势解析? 发工资了反而不高兴是怎么回事? 我想换一个,怎么把原上的好友全都转移到新号上? 最新版本微信要怎么才能把微信全部好友转移到新的? 微信转账凭证对方带星号咋办呀? 电子凭证有星号怎么办 站在思绪远飘的门口 一个人可以开几个? 广元那里可以办网约车资格证吗 boss直聘注销和解除实名认证区别 宿迁市利佰佳商贸有限公司介绍? 伊索寓言狮子和老鼠的启语收获 B2大货科三可以直接到车管所预约成功不? 乌克兰急了为何美国看重以色列 我想换一个,怎么把原上的好友全都转移到新号上? 为什么我的微信绑定了手机号,输入手机号码却搜索不到呢 为什么在微信中用手机号搜索不到呢? 为什么用手机号搜索不到? 每个月发工资就觉得很难受!怎么办? 梦见小腿里取出好多飞虫烈? 2014速腾后备箱打,开中控不显示了 我是个农村孩子,今年22岁,看着爸妈年过半百还要在烈日下工作还债... 污水管道和雨水管道有什么区别呢? 橱柜制作步骤 红双喜四星(底板4006,正面狂飚三,反面G888)适合哪种打法,真品多少钱... 一年内能改第二次吗? 没到一年怎么申请改? 怎么往8086单片机里写程序 电子转账凭证对方带星怎么破解 正在建设的什么水利枢纽将成为世界上最大的水电站 国产角磨机那个比较好,性价比高,附带价格! 湖南鹏翔星通汽车有限公司怎么样 鸣人的为人怎样? 赣州鹏翔汽车维修服务有限公司怎么样? 电子凭证隐藏怎么办微信电了凭证收款方隐藏了怎么查对方微... 我想换一个,怎么把原上的好友全都转移到新号上? 政务新媒体资质是什么意思 3开是多少钱