|
vars("列名") = "数量,金额"
If e.Table.DataTable.Name.Contains("统计") Then
e.Table.DataTable.AddUserStyle("abc",Color.LightBLue,Color.blue)
If e.Row(e.Table.Cols(0).name) = "合计" Then
e.Style = "abc"
Dim ary() As String = vars("列名").split(",")
Dim sum(ary.Length-1) As Double
For Each r As Row In e.Table.Rows
If r("产品") <> "合计" Then
For i As Integer = 0 To sum.length - 1
sum(i) += r(ary(i))
Next
End If
Next
For i As Integer = 0 To sum.length - 1
e.Row(ary(i)) = sum(i)
Next
End If
End If
|
加好友 
发短信
Post By：2015/10/29 11:04:00 [显示全部帖子]
