此主题相关图片如下：分级计算.png
这个收益率计算为什么少一层 最顶级不计算？请教老师们我的代码有什么问题吗？
For n As Integer = tbl.Rows.Count - 1 To 0 Step - 1 'n为整数，从下往上遍历
Dim cr As Row = tbl.Rows(n) '定义cr为行，下级行
Dim cHierarchy As Integer = cr.Hierarchy '下级行层级
For m As Integer = n - 1 To 0 Step - 1 '同样从下往上遍历,找出父行
Dim pr As Row = tbl.Rows(m)
Dim pHierarchy As Integer = pr.Hierarchy '
If cr.Hierarchy = pHierarchy + 1 Then '如果是父行
cr("成本测算_收益金额") = cr("中标清单_合价不含增值税") - cr("成本测算_合价")'计算收益金额
cr("成本测算_收益率") = cr("成本测算_收益金额") / cr("中标清单_合价不含增值税") '计算收益率
Exit For
End If
Next
Next
[此贴子已经被作者于2022/10/2 11:14:03编辑过]
加好友 
发短信
Post By：2022/10/2 11:13:00 [只看该作者]
Post By：2022/10/3 10:29:00 [只看该作者]
