建两个表,
第一个表1个字段,存放combo1的所有数据
第一个表2个字段,第一个字段存放的内容同上
第二个字段存放combo2的所有数据
如:
Tbl1:
字段名=Type
字段值=A,B,C
Tbl2:
字段名=Type,Detail
字段值如下:
Type Detail
A step1
A step2
B out1
B out2
...
'打开表1 -- tbl1
...
ConStr="select Type from tbl1"
Rst open ConStr
...
for i=1 to Rst.RecordsetCount
combo1.AddItem Rst.fields(0)
tbl1.movenext
next i
'根据combo1中选择的内容,再打开表2 -- tbl2,给combo2赋值
...
ConStr="select Detail from tbl2 where Type='" & combo1.text & "'"
Rst open ConStr
...
for i=1 to Rst.RecordsetCount
combo1.AddItem Rst.fields(0)
tbl1.movenext
next i
Private Sub Combo1_Validate(Cancel As Boolean)
Select Case Combo1.Text
Case "A"
Combo2.Clear
Combo2.AddItem "A1"
Combo2.AddItem "A2"
Combo2.AddItem "A3"
Case "B"
Combo2.Clear
Combo2.AddItem "B1"
Combo2.AddItem "B2"
Combo2.AddItem "B3"
Case "C"
Combo2.Clear
Combo2.AddItem "C1"
Combo2.AddItem "C2"
Combo2.AddItem "C3"
Case "D"
Combo2.Clear
Combo2.AddItem "D1"
Combo2.AddItem "D2"
Combo2.AddItem "D3"
End Select
End Sub