主题：怎么没反应

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

    Select Case e.Node.Level

        Case 0

            Filter = "[chanpinfenlei1] = '" & dr("chanpinfenlei1") & "'"

        Case 1

            Filter = "[chanpinfenlei1] = '" & dr("chanpinfenlei1") & "' And [chanpinfelei2] = '" & dr("chanpinfelei2") & "'"

        Case 2

            Filter = "[chanpinfenlei1] = '" & dr("chanpinfenlei1") & "' And [chanpinfelei2] = '" & dr("chanpinfelei2") & "' And [chanpinfenlei3] = '" & dr("chanpinfenlei3") & "'"

      End Select

End If

Tables("chanpinku").Filter = Filter

运行后没按我设想的运行
此主题相关图片如下：rutu.jpg

2、想通过此目录树的选择，在右边窗口中的TABLE中生成筛选后的数据。

3、此代码在目录树的afterselectnode\afterchecknode中均无法实现上述目的。

谢谢，请狐狸爸爸看下哪出了问题