Office中国论坛/Access中国论坛

标题: 组合框如何做到如下联动选择 [打印本页]

作者: wellcome_gx 时间: 2007-8-2 18:35
标题: 组合框如何做到如下联动选择
做两个组合框，第一个组合框选择后，第二个组合框的值会做出相应的变化
如一个表，建立了
零件ID、零件名称、零件级别
101       零件1       A级
102       零件2       A级
103       零件3       B级
104       零件4       C级
在第一个组合框选择零件级别，在第二个组合框才能显示该级别对应的零件ID和名称

作者: 一点通 时间: 2007-8-2 19:54
请看置顶贴报名

作者: royalcn 时间: 2007-8-2 22:20
private sub combo0_afterupdate事件添加如下代码

dim cnn as adodb.connection
dim rst as adodb.recordset
dim str as string

set cnn=new adodb.connection
set rst=new adodb.recordset

cnn.open (.............)
rst.open ("select 产品名称 from 表名 where 产品类别='" & combo0.text &"';") '根据选择的组合框一中的数据查询数据

rst.movefirst
'*******************再给组合框二的字段来源赋值
combo1.rowsourcetype=value list
do while rst.eof =false
str=str & rst(0) & ";"
rst.movenext
loop
combo1.rowsource=str

cnn.close
set rst=nothing

或者直接在组合框一中的更新后的事件中用Dlookup应该也可以

[ 本帖最后由 royalcn 于 2007-8-2 23:34 编辑 ]

作者: wellcome_gx 时间: 2007-8-2 22:28
我在另一个帖上放了附件,搞不定呀,没办法选择第一个的组合框,只能看

http://www.office-cn.net/forum.p ... &extra=page%3D1

作者: yanqing424 时间: 2008-2-24 21:24
标题: exactly
exactly this is an football

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