主题：用递归函数生成会计科目目录树,如何只筛选出末级科目?

目录树的NodeMouseDoubleClick事件代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Name = "全部" Then
    Tables("会计科目").Filter = ""
Else
    Tables("会计科目").Filter = "科目代码 Like '" & e.Node.Name & "%'"
End If

这样双击某个节点，即可将此节点及其子节点对应的行全部筛选出来。

这是原始例子的代码;

现在我想改一下: 双击某个节点，将此节点及其子节点对应的最末一级科目全部筛选出来,要如何改代码?

不是在目录树里筛选,是在表里面筛选