Dim total As Integer
Dim grandTotal As Integer

Private Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGrid1.ItemDataBound
    If (TypeOf e.Item Is GridDataItem) Then
        Dim dataItem As GridDataItem = CType(e.Item, GridDataItem)
        Dim fieldValue As Integer = Integer.Parse(dataItem("Quantity").Text)
        total = (total + fieldValue)
    End If
    If (TypeOf e.Item Is GridFooterItem) Then
        Dim footerItem As GridFooterItem = CType(e.Item, GridFooterItem)
        footerItem("Quantity").Text = "Total: " + total.ToString()
    End If
End Sub

Protected Sub RadGrid1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.DataBound
    Dim gridTable As DataTable = GetDataTable("SELECT * FROM [Order Details]")

    For Each row As DataRow In gridTable.Rows
        grandTotal = grandTotal + Integer.Parse(row("Quantity"))
    Next
    Dim footerItem As GridFooterItem = RadGrid1.MasterTableView.GetItems(GridItemType.Footer)(0)
    footerItem("Quantity").Text = footerItem("Quantity").Text + "<br> Total for all pages: " + grandTotal.ToString()
End Sub

Protected Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
    RadGrid1.DataSource = GetDataTable("SELECT * FROM [Order Details]")
End Sub
Public Function GetDataTable(ByVal query As String) As DataTable
    Dim connection1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & System.Web.HttpContext.Current.Server.MapPath("~/Grid/Data/Access/NWind.mdb"))
    Dim adapter1 As New OleDbDataAdapter
    adapter1.SelectCommand = New OleDbCommand(query, connection1)
    Dim table1 As New DataTable
    connection1.Open()
    Try
        adapter1.Fill(table1)
    Finally
        connection1.Close()
    End Try
    Return table1
End Function

 Private totalPrice As Double = 0
 Private totalUnits As Double = 0

 Private highestPrice As Double = 0
 Private highestUnitQuantity As Double = 0

 Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles RadGrid1.ItemDataBound
     If TypeOf e.Item Is GridFooterItem Then

         Dim footerItem As GridFooterItem = CType(e.Item, GridFooterItem)

         footerItem("ProductName").Controls.Add(New LiteralControl("Total: <br/>"))
         footerItem("ProductName").Controls.Add(New LiteralControl("Highest price/units quantity: "))

         footerItem("UnitPrice").Controls.Add(New LiteralControl("$" & totalPrice.ToString & "<br/>"))
         footerItem("UnitPrice").Controls.Add(New LiteralControl("$" & highestPrice.ToString))

         footerItem("UnitsInStock").Controls.Add(New LiteralControl(totalUnits.ToString & "<br/>"))
         footerItem("UnitsInStock").Controls.Add(New LiteralControl(highestUnitQuantity.ToString))
     Else
         If TypeOf e.Item Is GridDataItem Then

             Dim dataItem As GridDataItem = CType(e.Item, GridDataItem)

             Dim formatPrice As String = dataItem.OwnerTableView.DataKeyValues(dataItem.ItemIndex)("UnitPrice").ToString()
             Dim fieldValue As Double = Double.Parse(formatPrice)
             totalPrice += fieldValue

             If highestPrice = 0 OrElse highestPrice < fieldValue Then
                 highestPrice = fieldValue
             End If

             fieldValue = Double.Parse(dataItem.OwnerTableView.DataKeyValues(dataItem.ItemIndex)("UnitsInStock").ToString())
             totalUnits += fieldValue

             If highestUnitQuantity = 0 OrElse highestUnitQuantity < fieldValue Then
                 highestUnitQuantity = fieldValue
             End If
         End If
     End If
 End Sub

 Protected Sub RadGrid1_ColumnCreated(ByVal sender As Object, ByVal e As GridColumnCreatedEventArgs) Handles RadGrid1.ColumnCreated
     If e.Column.UniqueName = "UnitPrice" Then
(CType(e.Column, GridBoundColumn)).DataFormatString = "{0:$###,###.##}"
     End If
 End Sub

 Public Class _Default
     Inherits System.Web.UI.Page
     Private sum As Double = 0
     Private clientID As String

     Protected Sub RadGrid1_ItemDataBound(ByVal sender As Object, ByVal e As GridItemEventArgs) Handles RadGrid1.ItemDataBound
         If TypeOf e.Item Is GridDataItem Then
             Dim dataItem As GridDataItem = DirectCast((e.Item), GridDataItem)
             sum = (sum + Double.Parse((DirectCast((dataItem("Template1").FindControl("TextBox1")), TextBox)).Text))
         ElseIf TypeOf e.Item Is GridFooterItem Then
             Dim footer As GridFooterItem = DirectCast((e.Item), GridFooterItem)
(DirectCast((footer("Template1").FindControl("TextBox2")), TextBox)).Text = sum.ToString
             clientID = (DirectCast((footer("Template1").FindControl("TextBox2")), TextBox)).ClientID
         End If
     End Sub
     Protected Sub RadGrid1_PreRender(ByVal sender As Object, ByVal e As EventArgs) Handles RadGrid1.PreRender
         For Each dataItem As GridDataItem In RadGrid1.MasterTableView.Items
(DirectCast((dataItem("Template1").FindControl("TextBox1")), TextBox)).Attributes.Add("onblur", ("update('" + (clientID + ("'" + ("," + ("'" + ((DirectCast((dataItem("Template1").FindControl("TextBox1")), TextBox)).ClientID + "')")))))))
(DirectCast((dataItem("Template1").FindControl("TextBox1")), TextBox)).Attributes.Add("onfocus", ("getInitialValue('" + ((DirectCast((dataItem("Template1").FindControl("TextBox1")), TextBox)).ClientID + "')")))
         Next
     End Sub
 End Class