Office中国论坛/Access中国论坛

标题: 如何实现下拉选项 [打印本页]

作者: chinaji2010 时间: 2016-1-20 02:07
标题: 如何实现下拉选项
本人是菜鸟，请教各位高手一个问题，设计一个数据库要实现
表项目中有Ａ，Ｂ，Ｃ，Ｄ^………选项，其中A有A1,A2,A3,A4,A5,A6, 共有6个，B有B1，B2,B3,B4,B5,共有5个，C有C1C2C3，共有3个，如何实现在项目中点击下拉出现ABC，然后选择A后自动出现6个项目选择，点击B 出现5个选项，点击C时出现3个选项，互不干扰，谢谢

作者: todaynew 时间: 2016-1-22 10:20
1、假设表名为类型表，表设计为：id(主键),类型,父id

2、输入数据如下：
id 类型父id
1 A
2 B
3 C
4 A1 1
5 A2 1
6 A3 1
7 B1 2
8 B2 2
9 C1 3
10 C2 3

3、在表的设计窗口对父id字段设计查阅
显示控件：组合框
行来源类型：表/查询
行来源：select * from 类型表 where nz(父id,0)<>0
绑定列：1
列数:2
列宽:0

4、在窗体中设置两个控件，其一为id控件，其二为父id控件，这两个控件皆为组合框。父id控件的组合框设置与数据表中的查阅一致。id控件的组合框设置如下：
行来源类型：表/查询
行来源：select * from 类型表
绑定列：1
列数:2
列宽:0

5、写父id控件的更新后事件：
dim ssql as string
ssql="select * from 类型表"
if isnull(me.父id.value)=false then
ssql="select * from 类型表 where 父id=" & nz(me.父id.value,0)
end if
me.id.RowSource=ssql

作者: newglord 时间: 2016-4-9 20:56
不错

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