标题：关于多条件成本累计计算
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成本累计.table |
表中是一个产品的BOM清单
区别条件有 成品型号 物料型号 加工级别(加工时的顺序)
成品 的累计成本 = 所有第二级别物料的累计成本价格
其它类别的 累计成本 = 同一物料型号下,上一加工工序的累计成本世纪+ 本工序加工成本...
此主题相关图片如下：qq截图未命名.jpg
各位老师请看看....
大哥，不可以。
此主题相关图片如下：qq截图未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:成本累计.table |
同一 成品型号，同一 物料型号 下面的 累计成本 代码已经解决
在同一成品型号下，把各各子物料的累计成本，加到 成品累计成本 下面的代码，怎么样写？
表中 2859 成品 的累计成本， = 各个第二级别的累计成本相加。
怎么样累加？？？？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:成本累计.table |
1、2楼的plsition是个笔误，应该是position 这个你应该看得出的；
2、“表中 2859 成品 的累计成本， = 各个第二级别的累计成本相加。”试试下面：
Dim dr As DataRow = DataTables("表A").DataRows(currenttable.position)
if dr("类别") = "成品"
dr("累计成本") = Tables("表A").Compute("Sum(累计成本)", "成品型号 = '" & _
dr("成品型号") & "' and 加工级别 = 2")
end if
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:成本累计.table |
还有一个问题，当我任意修改某一工序单价后（如，第三步工序的单价），第三步工序的累计成本会自动更新，而第四步工序的累计成本不自动更新
只能一行一行的重置， 有没有办法可以实现这样的功能，，某成品型号下的任意工序单价、累计成本更新后，整个成品型号下的所有工序都自动重置
各位大哥大姐，，怎么样可以重置整列？？？一个工序更改价格，所有 累计成本自动更改。。。 我实现不了啊。。
没搞懂你的意思， 是不是要这样的结果？？？
Select Case e.DataCol.Name
case "单价","累计成本"
for i as integer = Tables("表A").count-1 to 0 step -1
Dim r As Row = Tables("表A").Rows(i)
if i = Tables("表A").count-1
r("累计成本") = r("系数") * r("单价")
else
if r("加工级别") <> Tables("表A").Rows(i+1)("加工级别")
r("累计成本") = DataTables("表A").Compute("Sum(累计成本)", "加工级别 = " & _
Tables("表A").Rows(i+1)("加工级别") & " ") + r("单价")
else
r("累计成本") = r("系数") * r("单价")
end if
end if
next
End Select
感谢感谢，，
谢谢你！
就是这样的效果！