列表框做的树，如何筛选

首先在窗体中设置一个全局变量，假设为：Public fl

然后在列表框的单击事件中加入如下代码即可：

Private Sub 分类_Click()
Dim s
If 分类.Column(3) = "分类" Then
 fl = 分类.Column(0)
 s = "select * from 查询1 where 分类='" & 分类.Column(0) & "'"
Else
 s = "select * from 查询1 where 分类='" & fl & "' and 子类='" & 分类.Column(0) & "'"
End If
查询1子窗体.Form.RecordSource = s
查询1子窗体.Form.Requery
End Sub

点击下载此附件