目录树筛选问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Node.text <> "全部"
    Dim Value()As String
    Value = e.Node.FullPath.Split("\")
    Select Case e.Node.Level
        Case 0
            Tables("表B").Filter ="[产品大类] = '" & Value(0).split(" ")(1) & "'"
        Case 1
            Tables("表B").Filter ="[产品大类] = '" & Value(0).split(" ")(1) & "' And [产品分类] = '" & Value(1).split(" ")(1) & "'"
        Case 2
            Tables("表B").Filter ="[产品大类] = '" & Value(0).split(" ")(1) & "' And [产品分类] = '" & Value(1).split(" ")(1) & "'And [型号] = '" & Value(2).split(" ")(1) & "'"
        Case 3
            Tables("表B").Filter ="[产品大类] = '" & Value(0).split(" ")(1)& "' And [产品分类] = '" & Value(1).split(" ")(1) & "'And [型号] = '" & Value(2).split(" ")(1) & "'And [规格] = '" & Value(3).split(" ")(1) & "'"
    End Select

Else
    Tables("表B").ApplyFilter = False '关闭筛选
End If

主题：目录树筛选问题