Office中国论坛/Access中国论坛

标题: 如何在Access中创建多级联动下拉列表 [打印本页]

作者: ocui 时间: 2006-9-6 21:11
标题: 如何在Access中创建多级联动下拉列表
在google中找到本坛，如获至宝。

请各位高手指导，在线等，非常感谢！

我想做一个数据库，用来管理资料。但是想做二级分类，然后在输入／查询表中有二个下拉列表选择组合框。

我希望第二个框根据第一框的选择来改变内容。就像选择了不同的国家，再选不同的城市一样的效果。

对于一级分类和二级分类，我分别做了一个表，一级分类可能在Access里面通过“查阅向导”的功能实现。二级分类该如何实现呢？

请高手指导我怎么做。本人初学新手，还请详细指点。谢谢！

作者: zqzhan 时间: 2006-9-6 21:18
又是vba编程，很好学吗

作者: ocui 时间: 2006-9-6 21:26
我刚刚初步研究了一下，没有找到相关的，找到一个相关的，也不知道如何用。有人给了个程序，我不太明白。

Private Sub Form_Load()

　　Dim str1 As String

　　‘建立连接串

　　conn$="UID=caiwu

WD=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

作者: juia_peng 时间: 2006-9-6 22:38
晕了，这些代码与我无缘，我怎么就是看不懂

作者: ocui 时间: 2006-9-6 22:42
是啊，我也觉得乱。请高手指导在Access中该如何操作。该写什么代码？

作者: 一点通 时间: 2006-9-7 07:17
用不了这么复杂的语句,请用关键字"组合框"搜索一下旧贴,例子很多,这是其中一个

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=178369&id=35634&skin=0

作者: fe2o3 时间: 2006-9-8 22:34
用带过滤的查询极易实现,本坛上发的例子中就有

作者: zwands 时间: 2012-4-11 14:40
同样新手求教。请致电

作者: cfncmjh 时间: 2016-6-13 17:12
故事梗概嘎嘎嘎刚刚规范

作者: gaom8 时间: 2020-9-4 19:00
正好用到

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)