Creare un'indice - sommario con reporting service

    Shared sommario As New System.Collections.Generic.Dictionary(Of String, String)

    Public Function Aggiungi(ByVal nome As String)
        sommario.Add(nome, Me.Report.Globals!PageNumber)
    End Function


    Public Function GetSommario() As String
        Dim sb As New System.Text.StringBuilder()

        For Each chiave As String In sommario.Keys
            sb.AppendFormat("{0}.......{1}" + VbCrlf, chiave, sommario(chiave))
        Next

        Return sb.ToString()
    End Function

Public Function Aggiungi(ByVal nome As String)

  sommario.Add(nome, Me.Report.Globals!PageNumber  )

    End Function

 Public Function GetSommario() As String
        Dim sb As New System.Text.StringBuilder()

        For Each chiave As String In sommario.Keys
            sb.AppendFormat("{0}..{1}" + VbCrlf, chiave, sommario(chiave))
        Next

if not sommario is nothing then
...foreach...etc..
end if