组合框如何做到如下联动选择

wellcome_gx

做两个组合框，第一个组合框选择后，第二个组合框的值会做出相应的变化
如一个表，建立了
零件ID、零件名称、零件级别
101          零件1         A级
102          零件2         A级
103          零件3         B级
104          零件4         C级
在第一个组合框选择零件级别，在第二个组合框才能显示该级别对应的零件ID和名称

一点通

请看置顶贴报名

royalcn

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

我在另一个帖上放了附件,搞不定呀,没办法选择第一个的组合框,只能看

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

yanqing424

exactly this is an football