以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  手工跨行代码计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159836)

--  作者：yifan3429 --  发布时间：2021/1/11 12:55:00 --  手工跨行代码计算 Dim pr As DataRow = e.DataTable.Find("核算项目 = \'项目小计\'") Dim p1r As DataRow = e.DataTable.Find("核算项目 = \'管理费小计\'") Dim p2r As DataRow = e.DataTable.Find("核算项目 = \'销售费小计\'") Dim p4r As DataRow = e.DataTable.Find("核算项目 = \'合同回款\'") Dim p3r As DataRow = e.DataTable.Find("核算项目 = \'回款净利润\'") If p3r IsNot Nothing Then         p3r("月份_12月")= DataTables("核算表").Compute("Sum(月份_12月)","[核算项目] = \'销售费用\'")   需求结果模型是    回款净利润  = p4r - （pr+p1r+p2r） End If

--  作者：有点蓝 --  发布时间：2021/1/11 13:42:00 --   p3r("月份_12月")=p4r（“xx列”） - （pr（“xx列”）+。。。。