主题：请教，关于treeview

窗口如图，

事件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

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