Dim counts = From d As DataRow In myDataTable.AsEnumerable() Group d By _
          Language = d.Field(Of String)("Language") Into g = Group _
          Select Language, g.Count
        DataGridView2.DataSource = counts.ToList()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim counts = From d As DataRow In dt.AsEnumerable() Group d By _
         Language = d.Field(Of String)(6) Into g = Group _
         Select Language, g.Count
        TextBox1.Text = counts.ToString

        Dim dt1 As New DataTable("Sprachenhäufigkeit")
        dt1.Columns.Add("Sprache", GetType(String))
        dt1.Columns.Add("Anzahl", GetType(Integer))
 
        For Each d1 In From d As DataRow In dt.AsEnumerable() Group d By _
          Sprache = d.Field(Of String)(6) Into g = Group _
          Select Sprache, g.Count
            Dim dr1 As DataRow = dt1.NewRow
            dr1("Sprache") = d1.Sprache
            dr1("Anzahl") = d1.Count
            dt1.Rows.Add(dr1)
        Next
 
        DataGridView2.DataSource = dt1

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

   With Chart1
       .Series.Clear()
       .Series.Add("default")
       .Series("default").ChartType = _
         DataVisualization.Charting.SeriesChartType.Pie
       .DataSource = dt
       .Series("default").XValueMember = "Language"
        .Series("default").YValueMembers = "Count"
   End With

Dim dt1 As New DataTable("Sprachenhäufigkeit")
        dt1.Columns.Add("Sprache", GetType(String))
        dt1.Columns.Add("Zahl", GetType(Integer))
 
        For Each d1 In From d As DataRow In dt.AsEnumerable() Group d By _
          Sprache = d.Field(Of String)(6) Into g = Group _
          Select Sprache, g.Count
            Dim dr1 As DataRow = dt1.NewRow
            dr1("Sprache") = d1.Sprache
            dr1("Zahl") = d1.Count
            dt1.Rows.Add(dr1)
        Next
 
        DataGridView1.DataSource = dt1
        With Chart1
            .Series.Clear()
            .Series.Add("default")
            .Series("default").ChartType = _
              DataVisualization.Charting.SeriesChartType.Pie
            .DataSource = dt
            .Series("default").XValueMember = "Sprache"
            .Series("default").YValueMembers = "Zahl"
        End With

Private Sub Kategoriehäufigkeit()
        Dim dt1 As New DataTable("Kategoriehäufigkeit")
        dt1.Columns.Add("Kategorie", GetType(String))
        dt1.Columns.Add("Anzahl", GetType(Integer))
        dt1.Columns.Add("Gesamtbetrag", GetType(Double))
 
        For Each d1 In From d As DataRow In ArchivDB.Kontodetails.AsEnumerable( _
          ) Group d By _
          Kategorie = d.Field(Of String)("Kategorie") Into g = Group _
          Select Kategorie, g.Count
            Dim dr1 As DataRow = dt1.NewRow
            dr1("Kategorie") = d1.Kategorie
            dr1("Anzahl") = d1.Count
            dr1("Gesamtbetrag") = ??
            dt1.Rows.Add(dr1)
        Next
 
        DataGridView1.DataSource = dt1
        With ChartKategorie
            .Series.Clear()
            .Series.Add("default")
            .Series("default").ChartType = _
              DataVisualization.Charting.SeriesChartType.Pie
            .DataSource = dt1
            .Series("default").XValueMember = "Kategorie"
            .Series("default").YValueMembers = "Anzahl"
        End With
    End Sub

 Private Function Category_output(year As Integer) As DataTable
        Dim dt As DataTable = ArchivDB.Kontodetails
        Dim cal As Globalization.Calendar = _
          Globalization.CultureInfo.CurrentCulture.Calendar
 
        Dim q = From row As DataRow In dt
          Let Ausgaben = row.Field(Of Double)("Betrag")
          Let Kategorie = row.Field(Of String)("Kategorieausgabe")
          Let ID = row.Field(Of Integer)("KategorieausgabeID")
        Where year = row.Field(Of Date)("Buchungsdatum").Year _
        AndAlso ID > 0
        Group By Kat = Kategorie Into Sum(Ausgaben), Count()
 
        '--------Ende deklarieren
        Dim df As New DataTable
        With df.Columns
            .Add("Kategorie", GetType(String))
            .Add("Anzahl", GetType(Integer))
            .Add("Ausgaben", GetType(Double))
        End With
 
        For Each el In q
            df.Rows.Add(el.Kat, el.Count, el.Sum)
        Next el
 
 
 
        DataGridView1.DataSource = df
        With ChartKategorie
            .Series.Clear()
            .Series.Add("default")
            .Series("default").ChartType = _
              DataVisualization.Charting.SeriesChartType.Pie
            .DataSource = df
            .Series("default").XValueMember = "Kategorie"
            .Series("default").YValueMembers = "Anzahl"
        End With
 
        Return df
    End Function