There is the Huffington Post , the Daily Kos, the New York Times ... I just discovered a site that has a little fun from another perspective! (Except that it documents the outrageous statements it makes)

http://obamawtf.blogspot.com/

Declare some integers for holding the values


Private MonthlyGoal As Integer = 0
Private FiscalYrYTD As Integer = 0

In your Databound event add up the values:

Public Sub dgAttainment_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs)

If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
‘add the items as you bind each row
‘Intellisense will not have the datafield name when you choose
‘e.item.dataitem but just add it anyways – it is the datafield
‘that you have used in your datagrid column
MonthlyGoal += e.Item.DataItem.MonthlyGoal
FiscalYrYTD += e.Item.DataItem.FiscalYrYTD

ElseIf (e.Item.ItemType = ListItemType.Footer) Then
‘put the added values into the appropriate column in the footer

e.Item.Cells(6).Text = FormatCurrency(MonthlyGoal, 2)
e.Item.Cells(9).Text = FormatCurrency(FiscalYrYTD, 2)

end if

End Sub