Dim filter As String = " 年度 = '" & e.DataRow("年度") & "' And 期间 = '" & e.DataRow("期间") & "'And 公司名称 = '" & e.DataRow("公司名称") & "'And 部门编号 = '" & e.DataRow("部门编号") & "'" Select Case e.DataCol.name Case "数量","单价" e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价") Case "年度","期间" Dim drgh As DataRow = e.DataTable.find(filter & " And 项目 = '挂号收入'and 收入明细 like '%合计%'") If drgh IsNot Nothing Then drgh("单价") = e.DataTable.Compute("sum(单价)",filter & " And 项目 = '挂号收入'and (收入明细 not like '%合计%' or 收入明细 is null)") drgh("数量") = e.DataTable.Compute("sum(数量)",filter & " And 项目 = '挂号收入'and (收入明细 not like '%合计%' or 收入明细 is null)") drgh("金额") = e.DataTable.Compute("sum(金额)",filter & " And 项目 = '挂号收入'and (收入明细 not like '%合计%' or 收入明细 is null)") End If End Select Select Case e.DataCol.name Case "数量","单价","金额" If e.DataRow("收入明细") <> "合计" Then e.DataTable.DataCols("年度").RaiseDataColChanged(filter & " and 收入明细 like '%合计%'" ) End If End Select
|