大哥，不可以。

同一 成品型号，同一 物料型号 下面的 累计成本 代码已经解决

在同一成品型号下，把各各子物料的累计成本，加到 成品累计成本 下面的代码，怎么样写？

表中 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

感谢感谢，，

谢谢你！

    就是这样的效果！