Select Case e.DataCol.Name
Case "月份","项目ID","工料一类"
Dim Filter As String = "[月份] = '" & e.DataRow("统计月") & "' and [项目ID] = '" & e.DataRow("项目ID") & "'"
e.DataRow("劳务消耗额") = DataTables("库明细").Compute("Sum(累计出库金额)", filter & " and [工料一类] = '劳务'")
e.DataRow("材料消耗额") = DataTables("库明细").Compute("Sum(累计出库金额)", filter & " and [工料一类] = '材料'")
e.DataRow("机械消耗额") = DataTables("库明细").Compute("Sum(累计出库金额)", filter & " and [工料一类] = '机械'")
End Select
加好友 
发短信
Post By：2017/11/19 23:09:00 [显示全部帖子]
