[求助]会计科目递归函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用polo_luo在2012-4-20 8:55:00的发言：

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

虽然还不知道“上级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”按钮中有类似的代码。

[此贴子已经被作者于2012-4-20 14:11:03编辑过]

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