allora in intestazione della pagina ho messo Code.Aggiungi(reportitems!textbox12.value)
Public Function Aggiungi(ByVal nome As String)
sommario.Add(nome, Me.Report.Globals!PageNumber )
End Function
poi per quanto riguarda la funzione
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
..questa funziona soltanto se posta in piè di pagina .... se la metto all'interno del corpo / tabella / raggruppamento mi restituisce sempre "#Errore".
messa in piè di pagina, visualizza i valori contenuti in sommario.