主题：统计同编号金额

Select e.DataCol.Name

    Case "负责人金额","下级"

if e.datarow.isnull("上级") then

            Dim filter As String = "项目编号= "& e.datarow("项目编号") & " And 上级 = '" & e.datarow("下级") & "' "

e.datarow.isnull("负责人金额") = e.DataTable.Compute("Sum(负责人金额)",filter)

end if

End Select

另外上级这个条件是绝对不能去掉的