说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中多级下拉列表的实现

HTML文档下载 WORD文档下载 PDF文档下载
VB中多级下拉列表的实现
(作者:陆明秀)

  当需要在大量记录的数据表中定位某个记录时,为了操作方便,我们通常采用多级下拉列表的实现方式。比如我们要搜寻人事处的一个叫“黎明”的个人信息,可先在单位下拉选单中定位人事处,从而下拉出人事处的人员名单列表,最终找到“黎明”的个人信息。实现步骤:

  取单位名称表(DWMCB)中的部门编号,产生一级下拉列表。

  根据操作者的选择,从人员名单表(RYMDB)中筛选出相应部门中的所有员工,创建二级下拉列表。

  从二级列表中,定位个人信息。

  程序如下:

   ...

  Private Sub Form_Load()

  Dim str1 As String

  注释:建立连接串

  conn$="UID=caiwu;PWD=67786787;DATABASE=cwxxk; SERVER=NWIEEIC;DRIVER={SQL SERVER};DSN=注释:注释:;"

  en.rdoEnvironments(0).CursorDriver = rdUseServer

  注释:建立连接

  Set cn = en.rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, False, conn$)

  注释:从单位名称表中取部门编号,并创建一级部门列表

  Set rs = cn.OpenResultset("select dwbh,dwmc from dwmcb")

  Do While Not rs.EOF

  List1.AddItem rs("dwbh")

  rs.MoveNext

  Loop

  rs.Close

  End Sub

  注释:创建一级列表的点击事件

  Private Sub List1_Click()

  gdwbh = List1.Text

  注释:调用产生二级列表的程序

  getbmry List1.Text

  End Sub

  注释:产生二级列表

  Sub getbmry(strbm As String)

  Dim ssql As String

  注释:从rymdb中筛选出一级列表中选中的单位中的人员姓名,用于创建二级列表

  ssql = "select zgxm from gzmxk3 where dwbh=" && "注释:" && strbm && "注释:;"

  Set rs = cn.OpenResultset(ssql, rdOpenKeyset)

  List2.Clear

  Do While Not rs.EOF

  List2.AddItem rs("zgxm")

  rs.MoveNext

  Loop

  rs.Close

  End Sub
大胆预测亚马逊即将推出的五大产品或服务 移动周报:GitHub章鱼猫中国之行 三星与LG的新动向:同样的物联网 ,不同的玩法 从Twitter到Tinder,看社交媒体在2013年的沉浮 一周消息树:有道周枫和他的“放养”团队、太极助手惹“非议” Netflix:使用大数据驱动商业决策 “中国杯”游戏极限开发大赛报道 回顾2013软件开发:JavaScript领风骚 京东“宙斯杯”创新应用大赛,百万奖金为“你”而等待 12306上的分布式内存数据技术GemFire Canalys:苹果、三星2014年仍统治平板市场 微软压力山大 Google和苹果的下一个战场 回顾2013科技界大事件:Mayer登Vouge杂志、Ballmer离职 《近匠》第03期:移动开发工具访谈,AVOS Cloud——后端的金刚钻 次世代视觉:Avegant Glyph智能眼镜技术解析 技术栈的选择:从Groupon转向Node.js、淘宝去IOE谈起 首席数据官:一个属于你的时代已经来临 盘点2013年Facebook七大最受欢迎的hack 见证中国开源的力量:“开源力量”2013年度庆典活动亮点汇总 专访APU13讲师、西电朱虎明:概念难以理解成异构编程最大阻力 盘点2013:21款最优秀的开源数据库 苹果三星再次谈判,欲和解所有侵权案 应对iOS in the Car,Google将携手奥迪推Android车载系统 10个技巧让你更轻松地使用AWS 《近匠》第04期:移动开发技术访谈,多看科技CTO王毅——阅读未来 2013年Linux领域重要事件回顾 2013年12月操作系统份额:Windows XP跌破30%大关 Linux小幅上涨 Snapchat存安全漏洞 460万用户信息被窃 年底广告高峰:AdMob团队支招“马上赚钱” 从远程调用框架认识Zookeeper 盘点Hadoop生态圈:13个让大象飞起来的开源工具 如何根据IP获得机器名,可以是根据dos命令实现 读出的文本是乱码,求救 读取Access数据库报错,急 急!电脑为何无过重启 oracle8i 中的apache port的问题? 请教,怎么用vb“破坏”一个数据库,在“恢复” 回来 毕设求助 请谈谈做大数量遍历时,采用ArrayList和LinkedList在性能方面的差别. 大家好! 在frontpage 中插入某.swf 文件时, 提示说“不能加载该文件”,请问怎样解决 QT&Kdevelop雕虫小技集(原创) 唐伯虎 大哥们, 为什么老是发出更新临时表的警告窗口? 双机互连上广域网SOS,高分致谢! 请问有哪些方法可以统计线程之间创建顺序的序列号? 请问:用web服务可以做到把一个信息用短信的形式发送到指定的手机里吗? 老机,win98引导format后,找不到光驱,以前是要将驱动程序搞到里面去,再执行setup,我不知道怎个搞法? warton申明! 老问题新难点(数据窗口) 求助!!!为什么我的写在DREAMWEAVER里的ASP程序没被IIS执行 在WIN98下C盘里面没有光驱显示?怎么回事? 新手装oralce9i的问题??? 为什么程序员找女朋友难? 急问dreamveaver的数据库的连接问题,就是与数据库的测试,绑定问题?谢先了! 我的TDBEDIT中文出现异常,请近来看看! 请问在access中如何判断是否存在指定表名的表? 如何知道事件是由那个控件接收的?? 两个小问题! 在PB8中怎样用Access数据库。求各位大虾帮帮忙!!!!!! 为什么装了delphi我的SQL SERVER 2000的企业管理器就不能用????? 我的这台机子今天一开机,当内存检测完了以后就再也进行不下去了,连COMS都进不去了。这是怎么回事?我该怎么办? 一个很菜的问题 jsp中与mysql连接是出现的问题,高手帮忙 请问在VB中如何使用IP助手函数GetAdaptersInfo取得MAC地址? w18ily进来一下,其余的就不要进来啦... 为什么这里的网页不能保存呢? 插件与控件有什么不同? 我搞不明 请教 讨论:于jsp搭配,最好最使用的数据库是什么!大家踊跃发言呀,来着有分!!! 特别推荐 真的可以免费下载好多电影 关于进度条和ADOQUERY的问提 记者采访广东省人大法工委办公室,得到了明确的答复:仅缺暂住证,是不能收容的。 HOW CAN I IMPLEMENTATION THE MFC/OLE Idispatch INTERFACE 一个脚本病毒代码,请高手分析一下 【狂人】进来领分 NO.1 如何用ASP判断客户文件是否存在,之后转到不同的页面 【狂人】进来领分 NO.2 【狂人】进来领分 NO.3 高手帮助:请帮助看看这个ADO处理的问题是如果造成的? 【狂人】进来领分 NO.4 【狂人】进来领分 NO.5 毕淑敏盲人看世界阅读答案 一道关于定积分的题目(有图有公式)问:F(x)的定义域是?答案写的是 x>1想不通,求教. 缘和份是互相吗,常说有缘无份.3Q 求张允贞《喜欢你》的中文翻译.谢谢. 定积分的一题 给点思路 有图 蝌蚪靠什么获取食物?两栖动物由什么进化来的?积极积极!蝌蚪靠什么获取食物?两栖动物由什么进化来的?积极积极! 用联合收割机收割一块麦田,计划每小时收割1.6公顷,9小时正好收割完;实际每小时多收割0.2公顷,几小时可以收割完?(用比例方法解答) 据说肯德鸡的鸡每只鸡都要长5-6个翅膀,5-6只脚,有关照片:为什么照片发不上? 根据蝌蚪的形态结构和生长发育的情况,可以得出的结论是 ①蝌蚪用鳃呼吸 ②两栖动物与鱼类有比较近的什么鸟题目.答案要带理由啊根据蝌蚪的形态结构和生长发育的情况,可以得出的结 五个带马的词语成语 氧化钙+水→氢氧化钙 是不是化合反应和氧化反应?如题 蛤蟆是两栖动物吗? 缘来爱上你 这句话什么意思谁能解释一下?快啊 我就这么多分了 谢谢各位了 肯德基的鸡有六只脚我们自古不就有"三头六臂"之说了吗?只不过是把古时代的医学从新发扬了.呵呵.胡扯!如果真的有那么厉害的激素,我们马路上不早就有很多的蜘蛛人...还有蜘蛛妹了吗?搞 关于与朱元思书的几个问题1.本文是什么结构?2.从 从流飘荡,任意东西 可以看出富春江有什么特点 谁能解释下“世间诸事皆缘一心”的意思 生石灰与水化合反应的反应热的大小如题. 蚂蚱(zhà)的读音是否要标轻声? 泽缘是怎么解释意义,泽缘听起来很好听. 读歇后语,填谐音字.马背上聊天——奇( )谈读歇后语,填谐音字.1..马背上聊天——奇( )谈 2.兰天上的鸿雁——名( )声大 蚂蚱的读音只要蚱字第几声就行平声是什么声啊 《 观潮》本文的描写宛如一幅绚丽多彩的画面,请简述 其图画美主要表现在哪几个方面,分别描写了什么内容 只在瓦片里面生存的蜘蛛,是新物种吗?我在拆房子的时候见到的,揭开瓦片后看见的,不算大,体长不到一厘米,有个很明显的特点就是这种蜘蛛身体是扁的,可能是为了适应瓦片间的空隙而进化形 "蚱蜢"的读音是什么? 把(You can not put the computer here.)改为祈使句. 肯德基的鸡有几个翅膀吗 用短除法求两个数的最小公倍数,甲数最后的商是五,乙数最后的商是四,他们最大公约数和最小公倍数的和是903,求这两个数.救偶一命啦````` 神采奕奕的 1眼光2眼神3眼睛 肯德基的鸡有几个翅膀是真的吗 市三女中真的有男班吗?有个同学想和我一起考,可是他是男的.不知道是否真的像传言一样是有男班的 求解释“坐”的意思1.王曰:“何坐?”曰:“坐盗”2.停车坐爱枫林晚 五(3)班有男生30人,女生24人,学校要抽一名男生作为升旗手,抽出男生的可能性是( ).http://zhidao.baidu.com/question/357986473.html上回答说是5/9.刚学过“可能性”的小学儿子说太简单了,应该是1/30. 1.(1+2/X-X+1/X-2)÷X+4/X²-2X2.2X/2X-1+X/X-2=23.X-6Y/X²-4Y²+2Y/X²-2XY4.已知a-b/X=b-c/Y=c-a/Z且a,b,c互不相等,求x+y+z 两栖动物可以像鱼一样一直生活在水面以下吗? 从3名男生,2名女生中随机抽取2人,检查数学成绩,则抽到的均为女生的可能性是? 客车和货车同时从甲乙两地出发相向而行,5小时相遇,相遇后客车又行3小时到达乙地.已知货车每小时行63千米,甲乙两地相距多少千米? how about____(ride)our bikes there 请问知道英语抽测试卷吗?要北京课改版的. 统计图的意义 There is a play-ground _ our school.A.on the front of B.by front of C.in front of D.in the front of 哪里有统计表 各种统计图有哪种作用 解释下面词语的意思.琢磨的意思和淡薄的意思. 求解一道定积分题求定积分 上是3/4拍下是负3/4拍(1+arctan x)乘以根号1+cosx dx 谁知道统计表的作用我需要统计表的作用, 有"不追求名利,淡泊"解释意思的词语. 我智利红玫瑰蜘蛛最近瘦得厉害.为什么啊?我的小玫瑰,是个幼体.最近都不吃东西了,而且肚子也迅速小下去了.为什么啊?它刚脱了壳.脱了壳肚子就会变小吗?应该是在2天之内肚子就减小了一半 蚂蚱怎么读 为什么有些东斯拉夫人肤色,发色,眼色会是最浅的呢?基因?东斯拉夫人有很多白发灰眼的,他们发色,眼色比日耳曼人,凯尔特人这些金发碧眼的民族还浅.有人说是因为有日耳曼血统,但东斯拉夫 缘和份是互相吗,常说有缘无份. 蚱蜢舟怎么读 “懵懂世事”和“甘于淡泊”的意思解释是什么? 从四男二女中任选三人参加比赛.求:所选三人中全是男生的概率;所选三人中至少有一女生的概率 You like basket ball是什么意思 奇怪 这是什么原理啊? 定积分的一题 有图 有缘无份 ------有份无缘——-----怎样解释哈? 找规律天数(1,1)(2,4)(1,9)(2,16).第8组是多少 这个定积分怎么求?有图 从4男6女中任选两个参加演出,则恰好选出一男一女的概率为?rt 宁波市环境空气质量优良率在浙江省排名发改委官员:我国城市群交通存在三大问工业利润增势保持稳定但增长基础仍然脆廊坊数百学生不满校园管理聚集抗议 官俄媒:俄中简化边界海关检查体现两国高医改网站技术问题百出 奥巴马上教堂也上海自贸区基本运行制度创新框架已建立收入分配改革有望三中全会后推进 提低林毅夫:中国经济仍有20年年增长8%女大学生为照顾瘫痪母亲休学 喂饭端尿袁隆平赴武大演讲 因场地问题仅持喇叭三中全会将推“空前”改革首瞩目纽约华裔因“眼红”杀害表哥一家五口被奥巴马夫妇携女儿做礼拜 一家服装两风美媒:美是全球不多的超级大国 不得不16名沙特女性因驾车挨罚 引集体抗议新闻集团窃听丑闻将开审 或付出16亿禁化武组织称叙利亚提交销毁化武初步计德街头画讽美监听:老鹰用摄像机监视绵新闻集团窃听丑闻将开审 或付出16亿李娜自评2013为最佳赛季 感谢团队【告读者】岭北古镇出“船王”练洪洋:院士不该享受任何额外特权汤嘉琛 :别总让纳税人为决策“瞎折腾被质疑的梦想才有实现的价值1989年5月20日肠癌高危信号 “便血”排首位银行芯片复合卡 8月起不再刷磁条湘江流域养殖污染防治武大恢复7年制 临床医学专业招生衡阳市国土局原副局长谢某涉嫌受贿被提湘阴防汛进入临战状态宣传文化工作 要为经济建设服务老爷子你好潮中国福利彩票3D开奖信息计量与绿色中国更正声明北京传真来“刑事逮捕令”充分发挥 计量基石作用中俄联合海上军演惊了谁中国如何 办“峰会”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘