List & Label 11 + Definierte Felder übergeben

[RealSkyNET]

Hallo zusammen!

Hab ein kleines Problem mit List & Label 11. Habe ein Report erstellt, welches eine Tabele für eine Liste entfhält, der Report Funktioniert eigentlich, nur in der Liste, wo eigentlich mehere Werte stehen sollten, steht immer nur der letzte übergebene Wert. Hier im Forum habe ich zwar einen Artikel dazu gefunden, jedoch bin ich dadurch nicht schlauer geworden. Ich Arbeite mit VB.NET 2005 Express

Vielleicht hat ja jemand eine Idee dazu?

Danke im vorraus.

LG
RealSkyNET

Hier mein DefineFields Handler:

' Handler for LlDefineFields Event
Public Sub LL_DefineFields(ByVal sender As Object, ByVal e As DefineElementsEventArgs) Handles PRTLLCrl.DefineFields

'Definieren der Strings und ermitteln wievielle Eintraege in dem DataGrid sind
Dim StrRGSum, StrRGNr As String
Dim i As Int32
'Dim StrDGVCount As Int32 = CInt("5")
Dim StrDGVCount As String = DGVOPLst.Rows.Count.ToString()
Dim BolChecked As Boolean

'Alle Einträge des DataGrid abfragen
While i <> CDbl(StrDGVCount)
'DataGrid Werte in den Strings laden
BolChecked = CBool(DGVOPLst.Rows(i).Cells().Item(0).Value)
StrRGSum = Replace(DGVOPLst.Rows(i).Cells().Item(4).Value.ToString(), ",", ".")
StrRGNr = DGVOPLst.Rows(i).Cells().Item(3).Value.ToString()

'Wenn "Hackerl" gesetzt an Report übergeben
If BolChecked = True Then
PRTLLCrl.Fields.Add("Rechnungs-Nummer", StrRGNr)
PRTLLCrl.Fields.Add("Rechnungs-Summe", StrRGSum)

Else
BolChecked = Nothing
End If
'Den Int32 um eines erhöhen
i = i + 1

End While
'Wenn der letzte Wert gelesen worden ist, dann LastRecord auf True und Druck beenden
'If i = CDbl(StrDGVCount) Then
'e.IsLastRecord = True
'Else
'e.IsLastRecord = False

'End If
If Not e.IsDesignMode Then e.IsLastRecord = i = CDbl(StrDGVCount)


End Sub