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

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
10个技巧让你更轻松地使用AWS 《近匠》第04期:移动开发技术访谈,多看科技CTO王毅——阅读未来 2013年Linux领域重要事件回顾 2013年12月操作系统份额:Windows XP跌破30%大关 Linux小幅上涨 Snapchat存安全漏洞 460万用户信息被窃 请教各位,如何从零基础学习vc?? 对不起,hrong(黄蓉_逍遥拳修炼中),请回复一下 asp.net中有什么控件可以不显示在界面中,但又可以保留值? 怎样删除重复记录(SQL) 问一条SQL语句!分不够再加! 比较 请问:已知结束日期和处理所用的秒数,如何得到起始日期 有关可恶的www.7hi.net的问题,急! C语言里的字符显示问题 关爱是一句问候,给人春天般的温暖.仿:关爱是要求与 DNF这个℡怎么打 ℡在手机上怎么打? 有一星球的密度与地球的密度相同 但它表面处的重力加 第七章 万有引力为什么地心说的错误观点能持续两千多 宇航员到达半径为R的某行星表面,将一物体从h(h远 假如没有重力,我们的生活会变的怎么样 如果没有重力,地球上会变成什么样?最好说出具体情景 纸杯蛋糕上面一层的是什么 监听事件对法美关系损害有限美国安局铁杆盟友临阵“倒戈” 称反对意大利前总理:欧洲为配合反恐对美国监埃及武打冠军因支持前总统穆尔西 金牌杭州滨江16所公办学校体育设施免费向分离主义与欧元困局沪中考试卷实行全市统一网上评卷 成绩专家:界碑不仅矗立在边界 互联网上也上海国际电影节不做“戛纳” 做自己的沪约7.5万名初三学生参加2016年红颜情梦百感小集恶神的异世界生存手册绿茵王座约会大作战之审判精灵迪庆博物馆旅游石门台旅游香樟花园旅游青龙湖旅游苍坡村旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘