主题：递归函数节点调用

老师您好，我用内部函数递归函数生成了会计科目目录树，由于各科目级别不同，目录树的节点数也不同。有的科目只有一级（一个节点，比如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

 

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

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

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

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小钢炮-销售行业1.foxdb

老师，窗口为“会计科目目录树”，要录入的表是“凭证明细表（表名为”序时账“）”的“科目代码”列

老师，不行哦，您处理后的版本太高，我这里打不开了，麻烦老师说一下是什么问题，需要处理哪里，贴一下代码，谢谢！！

老师，项目下载后打不开，说是版本太高，麻烦您在此说明一下处理哪些地方，怎么处理，谢谢！！项目用好了就会升级。。。