主题：[求助]还是老问题。根据节点的层数计算

问题在文件里

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

点击浏览该文件:各层节点的单重计算疑问.foxdb

mark 递归求和

 

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

点击浏览该文件:各层节点的单重计算疑问.foxdb

用递归求和有一个问题。目录树的最底层的节点的单重本来就有了，现在乘以隶属数量，那底层的节点的单重改变了。这个目录树，除了底层节点的单重是本来就有的，其他上层的节点，是隶属于这个节点的各个子节点的单重和隶属数量乘积的和。我要的是这种结果。

Dim pdr As DataRow = args(0)
Dim dt As DataTable = pdr.DataTable
Dim drs As List(of DataRow)
drs = dt.Select("隶属元素 = '" & pdr("元素编号") & "'")
If drs.count = 0 Then
    pdr("单重计算1") = pdr("元素单重")
    Return pdr("元素单重")
Else
    Dim sum As Double = 0
    For Each dr As DataRow In drs
        Dim rtn As Double = Functions.Execute("求和", dr)
        sum += rtn
    Next
    pdr("单重计算1") = sum * pdr("隶属数量")
    Return pdr("单重计算1")
End If

谢谢。我再学习一下