主题：如何实现根据单列内容生成目录树进行筛选或加载？

首先代码不能生搬硬套，不要把A功能的部分代码硬套套到B功能上，测试错误就认为A功能的代码也是错误的。帮助提供了大量的代码实例，请认真理解帮助的使用环境和说明再用。而不是随意找2段代码组合到一起就能使用，这只能是断章取义。问题一的两段帮助的代码，在帮助里使用的表结构完全不一样的，组合到一起当然实现不了任何东西其次要使用一个新的功能，建议还是把新功能的前前后后的帮助说明都过一遍，了解他们的区别在使用，不然还是陷入断章取义。上面问题二使用的代码是用于插入内置的筛选树（http://www.foxtable.com/webhelp/topics/3369.htm），这个是没有分级功能的。要使用分级功能应该使用层级筛选树：http://www.foxtable.com/webhelp/topics/3374.htm

不是不能，而是乱用其它帮助的方法，又不会变通

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

    Tables("表A").Filter = "[类别] like '" & e.node.FullPath & "%'"

end if