主题：请教临时表

 

用vars变量，15楼的代码，你写成循环即可。

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

堪称经典应用，这样表中的小计总计，自动合计只要查找到行列号，再遍列,不是自动计算了吗？

原来绘制事件有这么多技巧呀，为何不介绍介绍？论坛上怎么重来没见过？还是不知道在哪？