' CUSTOM SUMMARY ITEMS
Public Class CustomSummaryItem
    Inherits GridViewSummaryItem
    Public Sub New(ByVal name As String, ByVal formatString As String, ByVal aggregate As GridAggregateFunction)
        MyBase.New(name, formatString, aggregate)
    End Sub
    Public Overrides Function Evaluate(ByVal row As IHierarchicalRow) As Object
        Dim total As Decimal = 0
        For Each childRow As GridViewRowInfo In row.ChildRows
            Dim groupRow As GridViewGroupRowInfo = TryCast(childRow, GridViewGroupRowInfo)
            Dim dataRow As GridViewDataRowInfo = TryCast(childRow, GridViewDataRowInfo)

            If groupRow IsNot Nothing Then
                For Each row1 As GridViewRowInfo In groupRow.ChildRows
                    total += (row1.Cells("TOT1").Value)
                Next row1
            ElseIf dataRow IsNot Nothing Then
                total += dataRow.Cells("TOT1").Value
            End If
        Next childRow
        Return total

    End Function
End Class

Public Class CustomSummaryCountItem
    Inherits GridViewSummaryItem
    Public Sub New(ByVal name As String, ByVal formatString As String, ByVal aggregate As GridAggregateFunction)
        MyBase.New(name, formatString, aggregate)
    End Sub
    Public Overrides Function Evaluate(ByVal row As IHierarchicalRow) As Object
        Dim total As Decimal = 0
        For Each childRow As GridViewRowInfo In row.ChildRows
            Dim groupRow As GridViewGroupRowInfo = TryCast(childRow, GridViewGroupRowInfo)
            Dim dataRow As GridViewDataRowInfo = TryCast(childRow, GridViewDataRowInfo)

            If groupRow IsNot Nothing Then
                For Each row1 As GridViewRowInfo In groupRow.ChildRows
                    total += 1
                Next row1
            ElseIf dataRow IsNot Nothing Then
                total += 1
            End If
        Next childRow
        Return total
    End Function
End Class