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