Private Sub LoadCollection()
        ' erstelle collection für Daten
        col = New StatisticCollection
        Dim bs As BindingSource = clsForms.F1.Tab1BindingSource
        bs.DataSource = clsForms.F1.Adr2006DataSet.Tab1 ' Wirklich notwendig?
 
        Dim n As Integer
        Dim f As String = bs.Filter ' Kein New String()
 
        'Dim plz1 As String = New String(bs.Filter) ' Überflüssig
        'Dim plz9 As String = New String(bs.Filter) ' Überflüssig
 
        If f.Length > 0 Then f = "(" & f & ") AND " 
        plz1 = f & "PLZ > 9999 And PLZ < 20000" ' hier fehlte zweites "PLZ"
        plz9 = f & "PLZ > 89999 And PLZ < 99999" ' Hier auch
 
        ' Spalte Geschlecht = Typ String, Männlich 
        n = bs.DataSource.Compute("Count(Geschlecht)", f & _
          "Geschlecht='männlich'")
        col.Add(New StatisticItem(1, StatisticGroup.Geschlecht, "männlich", n / _
        bs.Count, Color.LightBlue))
 
        ' Spalte Geschlecht = Typ String, Weiblich
        n = bs.DataSource.Compute("Count(Geschlecht)", f & _
          "Geschlecht='weiblich'")
        col.Add(New StatisticItem(2, StatisticGroup.Geschlecht, "weiblich", n / _
        bs.Count, Color.Pink))
 
        Debug.WriteLine(bs.DataSource.Columns("PLZ").DataType.ToString())
 
        Debug.WriteLine(bs.Count.ToString())
 
        ' Spalte PLZ = Typ String
 
        Debug.WriteLine(plz1)
 
        n = bs.DataSource.compute("Count(PLZ)", plz1)
 
        Debug.WriteLine(n.ToString())
 
        col.Add(New StatisticItem(3, StatisticGroup.PLZ, "1....", n / bs.Count, _
          Color.DarkBlue))
 
        ' Spalte PLZ = Typ String
 
        Debug.WriteLine(plz9)
 
        n = bs.DataSource.compute("Count(PLZ)", plz9)
 
        Debug.WriteLine(n.ToString())
 
        col.Add(New StatisticItem(4, StatisticGroup.PLZ, "9....", n / bs.Count, _
          Color.Beige))
 
    End Sub

________
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