Private Sub dgv_LV_Inventur_Lager_Update()
        dgv_LV_Inventur_Lager.Rows.Clear()
 
        Dim ue As LagerlisteRow
 
        Dim Abfrage_Lager = From Eintrag In LagerlisteDB.Lagerliste
                           Where Eintrag.RowState <> DataRowState.Deleted
                           Order By Eintrag.Standort
                           Group By Art = Eintrag.USERID Into Lager_Gruppe = _
                             Group
 
        For Each Lager_Reihe In Abfrage_Lager
            ue = Lager_Reihe.Lager_Gruppe.First
            'Gesamtwert = Lager_Reihe.Lager_Gruppe.Sum(Function(f) 
            ' f.Einzelpreis)
            dgv_LV_Inventur_Lager.Rows.Add({ue.Standort, ue.USERID, _
              Lager_Reihe.Lager_Gruppe.Count})
        Next
    End Sub

 Private Sub dgv_LV_Inventur_Stellplatz_Fach_Artikel_Update()
        dgv_LV_Inventur_Stellplatz_Fach_Artikel.Rows.Clear()
 
        'In dieser Abfrage habe ich Probleme mit DBNULL
        'Datenfeld: Stellplatz
        'Datenfeld: Fach
        'Datenfeld: Artikelbezeichnung
        'Datenfeld: Artikelnummer
        '---------------------------------
        'wie kann ich das hier abfangen ?
        '---------------------------------
 
        Dim ue As LagerlisteRow
        Dim intLagerID As Integer = CInt(dgv_LV_Inventur_Lager.SelectedRows( _
          0).Cells("col_Inventur_L_LagerID").Value)
 
        Dim Abfrage_Stellplatz = From Eintrag In LagerlisteDB.Lagerliste
                      Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                      (Eintrag.IsStellplatzNull = False) AndAlso _
                      (Eintrag.IsFachNull = False) AndAlso _
                      (Eintrag.IsArtikelbezeichnungNull = False) AndAlso _
                      (Eintrag.IsArtikelnummerNull = False) AndAlso _
                      (Eintrag.IsMAXIMONull = False) AndAlso _
                               Eintrag.USERID = intLagerID
                      Order By Eintrag.Stellplatz
                      Group By Art = Eintrag.Standort Into Stellplatz_Gruppe = _
                        Group
 
        For Each Stellplatz_Reihe In Abfrage_Stellplatz
 
            Dim Abfrage_Fach = From Eintrag In _
              Stellplatz_Reihe.Stellplatz_Gruppe
                               Order By Eintrag.Fach
                               Group By Art = Eintrag.Standort Into Fach_Gruppe _
                                 = Group
 
            For Each Fach_Reihe In Abfrage_Fach
 
                Dim Abfrage_Artikel = From Eintrag In Fach_Reihe.Fach_Gruppe
                                      Order By Eintrag.Artikelbezeichnung Order _
                                        By Eintrag.Artikelnummer
                                      Group By Art = Eintrag.Standort Into _
                                      Artikel_Gruppe = Group
 
                For Each Artikel_Reihe In Abfrage_Artikel
                    ue = Artikel_Reihe.Artikel_Gruppe.First
 
                    dgv_LV_Inventur_Stellplatz_Fach_Artikel.Rows.Add( _
                      {ue.Stellplatz, ue.Fach, ue.Artikelbezeichnung, _
                      ue.Artikelnummer, ue.MAXIMO, _
                      Artikel_Reihe.Artikel_Gruppe.Count})
                Next
            Next
        Next
    End Sub