如何在Access中创建多级联动下拉列表

ocui

在google中找到本坛，如获至宝。

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

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

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

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

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

zqzhan

又是vba编程，很好学吗

ocui

我刚刚初步研究了一下，没有找到相关的，找到一个相关的，也不知道如何用。有人给了个程序，我不太明白。

Private Sub Form_Load()

　　Dim str1 As String

　　‘建立连接串

　　conn$="UID=caiwuWD=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

晕了，这些代码与我无缘，我怎么就是看不懂

ocui

是啊，我也觉得乱。请高手指导在Access中该如何操作。该写什么代码？

一点通

用不了这么复杂的语句,请用关键字"组合框"搜索一下旧贴,例子很多,这是其中一个

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

fe2o3

用带过滤的查询极易实现,本坛上发的例子中就有

zwands

同样新手求教。请致电

cfncmjh

故事梗概嘎嘎嘎刚刚规范

gaom8

正好用到