主题：[求助]这时目录树的单击事件该如何设置？

DataTables("XXX").LoadFilter  =   " [内容] ='" &  e.Node.Text & "'"
DataTables("XXX").Load()

帮助中有这样的例子，CaseStudy目录下还有一个示例文件，你可以参考。

代码原理是没有错的，如果搞不定的话。
作简单的例子上传，说明在那里设置了代码，目的是什么，出现了什么意外。

你这个问题提得很不清晰，有些混乱，我理解不了。

我蒙一下：

1、这个代码只是一个例子，如果你是四层，代码相应的增加即可。
2、select 内容　form 公司文件 where 内容＝得到节点内容
当然是可以的，没有什么不可以的。只是我看着有点奇怪，内容＝得到节点内容，双节不同层次的节点，等式左边列难道是固顶的，如果是固定的，只需：

DataTables("公司文件").LoadFilter = "[内容] Like '%" & e.Node.Text & "%'"
DataTables("公司文件").Load()

如果左边的列是变化的：

Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="[内容X] Like '%" & e.Node.Text & "%'"
    Case 1
        Filter ="[内容Y] Like '%" & e.Node.Text & "%'"
    Case 2
        Filter ="[内容Z] Like '%" & e.Node.Text & "%'"
 End Select
DataTables("公司文件").LoadFilter = Filter
DataTables("公司文件").Load()

对于不好表述的问题，与其贴代码，不如做个简单的示例文件上来，说明在那里设置了代码，目的是什么呢，遇到了啥问题，这样快得多。