Select Case e.DataCol.Name
Case "工程数量","综合单价"
If e.DataRow.IsNull("工程数量") AndAlso e.DataRow.IsNull("综合单价") Then
Else
e.DataRow("合计") = e.DataRow("工程数量") * e.DataRow("综合单价")
End If
Case "合计"
Dim s As String = e.DataRow("子目号")
Dim idx As Integer = s.LastIndexOf("-")
If idx > -1 Then
Dim s1 As String = s.SubString(0,idx)
Dim dr As DataRow = e.DataTable.Find("子目号 = '" & s1 & "'")
If dr IsNot Nothing Then
dr("合计") = e.DataTable.Compute("sum(合计)","子目号 like '" & s1 & "-%' and 工程数量 is not null and 综合单价 is not null")
End If
ElseIf e.DataRow("子目号") <> "全部"
Dim dr2 As DataRow = e.DataTable.Find("子目号 = '全部'")
If dr2 IsNot Nothing Then
dr2("合计") = e.DataTable.Compute("sum(合计)","子目号 not like '%-%' and 子目号 <> '全部'")
End If
End If
End Select