窗口如图，

事件NodeMouseDoubleClick代码：

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[类别] = \'" & dr("类别") & "\'"
        Case 1
            Filter = "[类别] = \'" & dr("类别") & "\' And [配件品牌] = \'" & dr("配件品牌") & "\'"
        Case 2
            Filter = "[类别] = \'" & dr("类别") & "\' And [配件品牌] = \'" & dr("配件品牌") & "\' And [规格型号] = \'" & dr("规格型号") & "\'"
    End Select
End If
Tables("配件信息表").Filter = Filter

为什么鼠标单击不筛选呢？

你这个是双击事件，单击肯定不筛选。

单击去写 NodeMouseClick