老师您好，我用内部函数递归函数生成了会计科目目录树，由于各科目级别不同，目录树的节点数也不同。有的科目只有一级（一个节点，比如1001现金），有的有二级（比如100201银行存款\\人民币，有的有三级(比如应交税金)等，数据表如何用这个递归函数生成的目录树录入数据表？？比如有个表“凭证明细表”分别有“科目代码”“科目名称”两列。如何在“凭证明细表”的“科目代码”列调用这个递归函数目录树，选择（又击）不同科目最末节点时，将科目代码和科目名称分别输入到“凭证明细表”的“科目代码”“科目名称”两列里？？现在是设计好了下拉窗口目录树，也可以将目录树调出来，但不能选择相关节点填入数据表。

1、代码在哪里设置；

2、请贴出具体代码。

谢谢老师！！

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

这段代码我的理解是，点击不同节点，在”会计科目“表显示不同的会计科目内容。比如点击资产节点，则显示全部资产科目，点击现金科目，就只显示现金科目（事实也是如些）。

假如是凭证明细表需要输入会计科目，代码改为：

双击节点之后，凭证明细表所有行都不见了，原来的数据都不见了。因为凭证明细表本来就没有目录树相应的内容。这段代码不是用于输入代码，只是用于查询代码。