Private Sub An_Abwesenheit_User_fill()
        dgv_AZ_GLZ_Auswertung.Rows.Clear()
        'col_SB_Stoerdauer_Maschine
        Dim Abfrage = From Eintrag In AblageDB.Arbeitszeiten
                      Where Eintrag.RowState <> DataRowState.Deleted
                      Order By Eintrag.User
                      Group By Art = Eintrag.UserID Into UGruppe = Group
 
        Dim User As String
        Dim gleitzeit As Double
        Dim D_von, D_bis As Date
 
        Dim ue As ArbeitszeitenRow
        For Each Reihe In Abfrage
            ue = Reihe.UGruppe.First
 
            D_von = (From drv In Reihe.UGruppe Select drv.Tag).Min
            D_bis = (From drv In Reihe.UGruppe Select drv.Tag).Max
 
            Dim rowUser = AblageDB.Arbeitszeiten.First(Function(f) f.ID = _
              ue.UserID)
            If Not rowUser Is Nothing Then
                User = rowUser.User
                gleitzeit = Reihe.UGruppe.Sum(Function(f) f.Gleitzeit)
 
                dgv_AZ_GLZ_Auswertung.Rows.Add({ue.UserID, ue.User, _
                  Reihe.UGruppe.Count, gleitzeit, D_von, D_bis})
            End If
        Next
    End Sub