如何实现下拉选项

chinaji2010

本人是菜鸟，请教各位高手一个问题，设计一个数据库要实现
表项目中有Ａ，Ｂ，Ｃ，Ｄ^………选项，其中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

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

不错