Private Function Kosten1(year As Integer) As DataTable
        Dim Text As String = ""
        Dim dt As DataTable = HBDatenbankDS.Kontodetails
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
        Me.Cursor = Cursors.WaitCursor
        Dim q = From row As DataRow In dt
          Let Betrag = row.Field(Of Integer)("Betrag")
          Let Buchung = row.Field(Of String)("Buchungsart")
          Where year = row.Field(Of Date)("Buchungsdatum").Year _
          AndAlso row.Field(Of Integer)("UserID") = aktBenutzerRow.ID _
                 AndAlso row.Field(Of String)("Buchungsart") <> Text _
          Group By art = Buchung Into Sum(Betrag), Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("Buchungsart", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Betrag", GetType(Double))
        End With
        For Each el In q
            df.Rows.Add(el.art, el.Count, el.Sum)
        Next el
 
        Dim bs As New BindingSource With {.DataSource = df}
        bs.Sort = "Count DESC"
 
        Dim _Sum As Integer
        _Sum = df.AsEnumerable().Sum(Function(row) row.Field(Of Double)( _
          "Betrag"))
 
       'Daten in der DGV anzeigen
        DGV1.DataSource = bs

  Private Function GetFreq1(year As Integer) As DataTable
        Dim dt As DataTable = HBDatenbankDS.Kontodetails
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
              Where year = row.Field(Of Date)("Buchungsdatum").Year _
              Group By art = row.Field(Of String)("Kategorie") Into Count()
 
        Dim df As New DataTable
        With df.Columns
            .Add("Kategorie", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Perc", GetType(Double))
        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"))
        Next i
 
        'Werte in Prozentanteile umrechnen
        For i As Integer = 0 To bs.Count - 1
            Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
            row("Perc") = Math.Round(CInt(row("Count")) / sm * 100, 2)
        Next i
 
        Dim _Anzahl As Integer
        _Anzahl = df.AsEnumerable().Sum(Function(row) row.Field(Of Integer)( _
          "count"))
 
        'Daten in der DGV anzeigen
        DGV1.DataSource = bs
        'den Teil musste ich entfernen da größer 5 KB
        'Chart anzeigen
        'den Teil musste ich entfernen da größer 5 KB
 
        Return df
    End Function

 Dim dt As DataTable = HBDatenbankDS.Kontodetails
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
             Let Gesamtbetrag = row.Field(Of Double)("Betrag")
              Where year = row.Field(Of Date)("Buchungsdatum").Year _
              Group By art = row.Field(Of String)("Buchungsart") Into Count()
 
 
        Dim df As New DataTable
        With df.Columns
            .Add("Ausgabe", GetType(String))
            .Add("Einnahme", GetType(String))
            .Add("Count", GetType(Integer))
            .Add("Gesamtbetrag", GetType(Double))
        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"))
        Next i
 
        'Werte in Prozentanteile umrechnen
        For i As Integer = 0 To bs.Count - 1
            Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
            row("Perc") = Math.Round(CInt(row("Count")) / sm * 100, 2)
        Next i
 
        Dim _Anzahl As Integer
        _Anzahl = df.AsEnumerable().Sum(Function(row) row.Field(Of Integer)( _
          "count"))
 
        'Daten in der DGV anzeigen
        DGV1.DataSource = bs