递归函数基本代码，由于不想研究公式，所以只给出来基本框架。如确实有困难再加我QQ吧：5980274
Dim dt As DataTable = Args(0)
Dim dr As DataRow = Args(1)
Dim zd As New Dictionary(Of String, Decimal)
zd.Add("材料成本含损耗",0)
zd.Add("人工成本",0)
zd.Add("当阶材料成本",0)
zd.Add("当阶人工成本",0)
zd.Add("下阶制成品损耗成本",0)
zd.Add("当阶成本合计",0)
zd.Add("累计生产成本",0)
Dim drs As List(Of DataRow)
drs = dt.Select("[上级序号] = " & dr("序号"))
For Each dr1 As DataRow In drs
Dim zd1 As New Dictionary(Of String, Decimal)
Dim dr2 As DataRow
dr2 = dt.Find("[上级序号] = " & dr1("序号"))
If dr2 IsNot Nothing Then '如果找到的话,进入递归
zd1 = Functions.Execute("main",dt,dr1)
Else '否则退出递归,形成该行基本数据�
Select Case dr1("大类料件")
Case "原料","零件"
zd1.Add("当阶材料成本",0)
Case "制成品"
'根据计算公式规则
End Select
End If
'根据规则汇总下阶数据
For Each k As Integer In zd.Keys '显示所有键及其对应的值
If zd1.ContainsKey(k) Then '是否存在键
zd(k) = zd(k) + zd1(k)
End If
Next
Next
Return zd
加好友 
发短信
Post By：2021/6/22 15:22:00 [显示全部帖子]
