combo控件如何两次筛选dadagrid

[gldyj]

请教：
我用VB中 ado+combo+dadagrid做了个筛选
目的很简单，就是用两个combo控件过滤dadagrid
出现的问题是：combo1和combo2是独立筛选,而我要做的是combo2在combo1的结果中筛选。
请教高手，我该如何实现？

例：combo1为“产地”字段，包括“重庆”“成都”

combo2为“种类”字段，包括“绿”“红”“蓝”等

“重庆”“成都”里都包含“绿”“红”“蓝”等小类

而我要做的就是，选了“重庆”或“成都”后就是在“重庆”“成都”里再选“绿”“红”“蓝”等小类

[it_sy_boy]

Dim a(1, 10) As String

Private Sub Combo1_Click()
Dim i As Integer
Dim j As Integer
i = Combo1.ListIndex
Combo2.Clear
For j = 0 To 2
Combo2.AddItem a(i, j + 1)

Next
Combo2.ListIndex = 0
End Sub

Private Sub Form_Load()

Dim i As Integer
Dim j As Integer

a(0, 0) = "重庆"
a(0, 1) = "h"
a(0, 2) = "l"
a(0, 3) = "b"
a(1, 0) = "成都"
a(1, 1) = "a"
a(1, 2) = "b"
a(1, 3) = "c"
For i = 0 To 1
Combo1.AddItem a(i, 0)

Next
Combo1.ListIndex = 0
End Sub

[gldyj]

已解决，谢谢!