主题：[求助]关于这种目录树的问题,帮助文件里没有！

筛选是针对选定节点的，怎么可能：

For Each nd As WinForm.TreeNode In trv.AllNodes

Next

这样不仅速度慢得出奇，而且永远都是最后一个节点生效，你筛选啥？

正常应该这样，根据选定节点生成少选条件：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim  nd As WinForm.TreeNode = trv.SelectedNode
If nd.Text = "加载全部客户"  Then
    Tables("销售意向客户进度管制").ApplyFilter =False
ElseIf nd.Text = "欲购车型"  Then
    Tables("销售意向客户进度管制").Filter = "欲购车型 Is Not Null"
End If

 关于自己设计筛选书，帮助有现成的例子：

http://www.foxtable.com/help/topics/0917.htm

但是看帮助一定要按顺序，要理解，不要总是生搬硬套，所以还是建议你从使用指南开始，系统性地看两到三遍帮助，真正做到理解。

看看帮助是怎么做的：

http://www.foxtable.com/help/topics/0917.htm