Friday, July 1, 2011

Running Total at Page Footer

I was Asked by my client to Display the Running Total at the Page Footer ,
Initially thought it was an easy task ...Just Refer the Text Box where the field was Placed and do some small Rework would yield the Result,,But NO !!!! !!!It Turned out to be harder than what i expected.
After some amount of googling,I have Written this Sample Vb Script which will display Running total at the page Footer.

Copy Paste this Vb Code in your Report Code.
Public Shared PageTotal As System.Collections.Generic.Dictionary(Of Integer, Decimal)

Public Shared Function GetTotal(ByVal Item As Integer, ByVal Amount As Decimal) As Decimal

Dim Count As Integer
Dim total As Decimal = 0

If PageTotal Is Nothing Then

PageTotal = New System.Collections.Generic.Dictionary(Of Integer, Decimal)

End If

If Not PageTotal.ContainsKey(Item) Then

PageTotal.Add(Item, Amount)

End If

For Count = 1 To Item
total = total + PageTotal(Count)
Return total

End Function

Use the Expression in your Report Footer..

Change the Expression and Paste the Measure which you need to display.

Now You Can See the Magic of the Vb Scipt !! ! ! !

1 comment:

  1. its very nice example ,Rakesh can you let me know how the first page sum will cary frward to next page?