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

　
　先简述一下，窗口１中有目录树和标签及文本框等组件

1.目录树在加载窗口事件中(afterload)设置了
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildDataTree("公司文件", "", "部门", "时间", "信息项目","标题")
加载窗口后自己生成目录树
2.文本框绑定了数据字段＂内容＂
其它暂不描述

目的：单击目录树的标题子节点（最后），文本框的内容根据标题子节点的内容返回．也就是说要求为select　内容 from 公司文件　where 内容=　　子节点标题　　（这里只是打比方）　　，这段代码在NodeMouseDoubleClick　事件中如何写？
　　期待指导！
此主题相关图片如下：1.jpg

此主题相关图片如下：1.jpg

  报错了　　貌似要修改　红色等号　为 like?　
DataTables("公司文件").LoadFilter = " [内容] = '" &  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 ="[部门] = '" & Value(0) & "'"
    Case 1
        Filter ="[部门] = '" & Value(0) & "' And [时间] = '" & Value(1) & "'"
    Case 2
        Filter ="[部门] = '" & Value(0) & "' And [时间] = '" & Value(1) & "' And [信息项目] = '" & Value(2) & "'"
   
    End Select
DataTables("公司文件").LoadFilter = Filter
DataTables("公司文件").Load()

　　　　　我所想像的方式是单击子节点后，select 内容　form 公司文件 where 内容＝得到节点内容　通过设置sql语句的动态方式，不知道行不行．

　　最终就以下代码OK了，非最终子节点均不采取动作：
Dim Value()As String
Dim Filter As string
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
        case 3
        Filter="[标题] like '%" & e.Node.Text & "%'"
 End Select
DataTables("公司文件").LoadFilter = Filter
DataTables("公司文件").Load()