以文本方式查看主题 - 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列”)+。。。。 |