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

递归函数基本代码，由于不想研究公式，所以只给出来基本框架。如确实有困难再加我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

Return zd

大概思路

1、获取最底层：在上阶序号里不存在的序号就是最底层

Dim drs As List(of DataRow) = DataTables("BOM清单").SQLSelect("序号 not in (select 上阶序号 from {BOM清单} where 上阶序号 is not null)")

Output.Show(drs.Count)

2、遍历上面所有行，通过上阶序号查询，获取这个上阶序号有几行下一层

for each dr as datarow in drs

Dim drs2 As List(of DataRow) = DataTables("BOM清单").Select("上阶序号=" & dr("上阶序号"))

计算drs2这些行的各种值（比如当阶材料成本等）求和

查询序号=上阶序号的数据：dim dr2 as datarow = DataTables("BOM清单").find("序号=" & dr("上阶序号"))

dr2("当阶材料成本") = 上面计算的求和结果

同样方法递归处理drs2各行的上一层

比如序号为6为最底层，其上阶序号为5，上阶序号为5的行只有序号为6这一行，计算序号为6这一行当阶材料成本等写入序号为5这一行的当阶材料成本列；

继续向上处理，序号为5的上阶序号为4，上阶序号为4的行有序号为5、7、8这3行，那么就计算5、7、8这3行的材料成本写入序号为4这一行的当阶材料成本列；

继续向上处理，序号为4的上阶序号为3，..............

已经取得结果，但速度太慢。帮看下是否有好的办法。（感谢flashman）

1.数据会有10-50多万行，所以肯定考虑数据库。

2.因条件限制无法使用SQL SERVER。只能使用ACCESS。但ACCESS又不支持子查询更新。只能建立临时中转表帮辅助核算。

3.结果需要两种成本，a本工艺成本，即当阶成本，以帮助车间分析改善材料、人工、半成品损耗情况。b累计成本，即从最底层到本阶所耗用的成本，帮助公司做成本分析。

4.当阶成本=材料成本含下阶+当阶人工+子件损耗，累计生产成本=材料成本含下阶+当阶人工+子件成本

其中：材料成本含下阶+当阶人工=本阶成本，子件成本含损耗

下载信息 [文件大小：下载次数： ]
点击浏览该文件:bom成本.rar

此主题相关图片如下：无标题.png

几十万行数据如果都没有计算过，慢也就慢一次好了，等慢慢计算结束。

以后新增加，或者修改的数据就只需要计算和这行数据有关的本级或者递归上级处理，这种应该就快了

主题：[求助]BOM成本计算