以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  手工跨行代码计算  (http://foxtable.net/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列”)+。。。。