Private Sub grp_DisplayGroup(sender As Object, _
        e As Subro.Controls.GroupDisplayEventArgs) Handles grp.DisplayGroup
        If e.DisplayValue = String.Empty Then
            e.DisplayValue = "<fehlend>"
            e.Summary = ""
        End If
        Dim true_sum, false_sum As Integer
        Dim BM_Wert As Double
 
        For i As Integer = 0 To BS_Vorgangdetails.Count - 1
            Dim r As DataRow = DirectCast(BS_Vorgangdetails(i), DataRowView).Row
            'Gehört der Datensatz zur aktuellen Gruppe? 
            If Not IsDBNull(r(cboColumns.Text)) AndAlso _
               r(cboColumns.Text).ToString.ToLower = e.DisplayValue.ToLower Then
 
                'Summen für aktuelle Gruppe berechnen  
                If Not IsDBNull(r("Lieferschein")) Then
                    If CBool(r("Lieferschein")) Then
                        true_sum += 1
                    Else
                        false_sum += 1
                    End If
                    'Summe Kosten aktuelle Gruppe bilden
                    If Not IsDBNull(r("Kosten")) Then
                        If CDbl(r("Kosten")) Then
                            BM_Wert += CDbl(r("Kosten"))
                        End If
                    End If
                End If
            End If
        Next i
 
        'Summenwerte als Summary anzeigen
        e.Summary = "LS vorh.: " & true_sum.ToString & " es fehlen: " & "( " & _
          false_sum.ToString & " )" & " LS, " & " BM-Wert: " & String.Format( _
          "{0:00.00} €", BM_Wert)
    End Sub