主题：BOM目录树问题，狐爸请看

也可以配合原来例子中的目录树来实现：打开目录树窗口，在命令窗口执行下面代码看看：

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd0 As WinForm.TreeNode = tr.SelectedNode
Dim s As String = nd0.text
Dim x As String
For Each nd As WinForm.TreeNode In tr.AllNodes
    For i As Integer = 0 To tr.nodes.count-1
        If nd.fullpath.contains(s)
            x = x & ",'" & nd.text & "'"
            Exit For
        End If
    Next
Next

x = x.trim(",")
Tables("表A").Filter = "标题 in (" & x & ") "