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
加好友 
发短信
Post By：2021/1/11 12:55:00 [显示全部帖子]
