Me.Cursor = Cursors.WaitCursor
        Dim q = From row As DataRow In LagerlisteDB.Lagerliste
           Let Standort = row.Field(Of String)("Standort")
           Let Artikel = row.Field(Of String)("Artikelbezeichnung")
           Let Maximo = row.Field(Of String)("MAXIMO")
           Where Maximo = row.Field(Of Boolean)("INMAXIMO") = True _
                AndAlso row.Field(Of String)("Artikelbezeichnung").ToLower _
                AndAlso row.Field(Of String)("MAXIMO").ToLower _
           Group By art = row.Field(Of String)("Maximo") Into Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("Standort", GetType(String))
            .Add("Artikel", GetType(String))
            .Add("Maximo", GetType(String))
            .Add("Count", GetType(Integer))
        End With
        For Each el In q
            df.Rows.Add(el.art, el.Count)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        Dim sm As Integer = 0
        For i As Integer = 0 To bs.Count - 1
            Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
            'Häufigkeiten kumulieren
            sm += CInt(row("Count"))
            row("cum") = sm
        Next i
 
        'Daten in der DGV anzeigen
        dgvErgebnis.DataSource = bs
 
        Me.Cursor = Cursors.Default