主题：[求助]会计科目递归函数

以下是引用mr725在2012-4-19 17:21:00的发言：

看看我这个行不：

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

点击浏览该文件:科目测试2.table

好帖必须顶，谢谢！

非常感谢，卡了两个月的瓶颈得以解放

虽然还不知道“上级Idtfy”列是怎么算出来，但还有个“生成科目目录树addco”可以用

“上级Idtfy”是通过上级科目代码的“_Identify"计算出来的，一次性计算的代码是这样的：

Dim dr As DataRow
For Each r As DataRow In DataTables("会计科目").dataRows
    If r("科目编号").length = 3
        r("上级Idtfy") = Nothing
    Else
        dr = DataTables("会计科目").Find("科目编号 = '" & left(r("科目编号"),r("科目编号").length-3) & "'")
        r("上级Idtfy") = dr("_Identify")
    End If
Next

其实“生成科目目录树addco”按钮中有类似的代码。