Private Sub Ablage_Jahresliste()
        If BS_Ablagedetails_TypRow Is Nothing Then Return
 
        'Sortierspalte und Richtung festlegen
        BS_Ablagedetails.Sort = "Erfasstam ASC"
 
        'Ermittlung der Jahreszahlen als Liste (LINQ)
        Dim dates As List(Of Integer) = _
         (From rw As DataRow In AblageDB.Ablagedetails.AsEnumerable _
          Select yr = rw.Field(Of Date)("Erfasstam").Year Distinct Order By _
          yr).ToList
 
        dates.Sort()
 
        Dim index_aktuellesjahr As Integer = dates.IndexOf(Today.Year)
        'Liste an Combobox binden
        cbx_AblageJahr.DataSource = dates
        cbx_AblageJahr.SelectedIndex = index_aktuellesjahr
    End Sub

 Dim Vorlage_date As DateTime = Today.AddDays(-30) 'kritisches Datum
        BS_Ablagedetails.Filter = "Erfasstam < " & GetExpressionDate( _
          Vorlage_date)  'Filter
        'Filter sortieren
        BS_Ablagedetails.Sort = String.Format("[{0}] {1}", _
          AblageDB.Ablagedetails.ErfasstamColumn.ColumnName, "ASC")
    End Sub