Private Sub SB_Stoerdauer_Maschine_fill()
        'DatagridView leeren DGV ist nicht gebunden
        dgv_SB_Stoerdauer_Maschine.Rows.Clear()
        'Abfrage typisierte Datatable Stoerungen
        Dim Abfrage = From Eintrag In TPMDB.Stoerungen
                      Where Eintrag.RowState <> DataRowState.Deleted
                      Order By Eintrag.OrtderStörung
                      Group By Art = Eintrag.MaschinenID Into UGruppe = Group
 
        Dim OrtderStoerung As String
        Dim ArtderStoerung As String
        Dim Stoerdauer As Double
        Dim D_von, D_bis As Date
 
        Dim ue As StoerungenRow
        For Each Reihe In Abfrage
            ue = Reihe.UGruppe.First
 
            D_von = (From drv In Reihe.UGruppe Select drv.Eintrag).Min
            D_bis = (From drv In Reihe.UGruppe Select drv.Eintrag).Max
 
            Dim rowMaschine = TPMDB.Stoerungen.First(Function(f) f.ID = _
              ue.MaschinenID)
            If Not rowMaschine Is Nothing Then
                OrtderStoerung = rowMaschine.OrtderStörung
                ArtderStoerung = rowMaschine.ArtderStörung
                Stoerdauer = Reihe.UGruppe.Sum(Function(f) f.Stoerdauer)
 
                dgv_SB_Stoerdauer_Maschine.Rows.Add({ue.MaschinenID, _
                  ue.OrtderStörung, Reihe.UGruppe.Count, Stoerdauer, D_von, _
                  D_bis})
            End If
        Next
    End Sub