Private Sub Jahresliste()
        If BS_TPMMeldung_TypRow Is Nothing Then Return
 
        'Sortierspalte und Richtung festlegen
        BS_TPMMeldung.Sort = "Erstelldatum DESC"
 
        'Ermittlung der Jahreszahlen als Liste (LINQ)
        Dim dates As List(Of Integer) = _
         (From rw As DataRow In TPMDB.TPMMeldung.AsEnumerable _
          Select yr = rw.Field(Of Date)("Erstelldatum").Year Distinct Order By _
          yr).ToList
 
        dates.Sort()
 
        Dim index_aktuellesjahr As Integer = dates.IndexOf(Today.Year)
        'Liste an Combobox binden
        cbx_Jahr.DataSource = dates
        cbx_Jahr.SelectedIndex = index_aktuellesjahr
 
    End Sub
 
    Private Sub Monatsliste()
        Dim lst_Monate As New List(Of String) From {"", "Januar", "Februar", _
          "März", "April", "Mai", "Juni", "Juli", "August", "September", _
          "Oktober", "November", "Dezember"}
        cbx_Monat.Items.AddRange(lst_Monate.ToArray)
        cbx_Monat.SelectedIndex = 0
        lst_Monate.Clear()
    End Sub