主题：关于多条件成本累计计算

Currenttable.Current("成本累计") = Currenttable.Current("本工序成本") + Currenttable.rows(Currenttable.plsition+1)("成本累计")

没搞懂你的意思， 是不是要这样的结果？？？

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