Dim fltErledigt As String = String.Empty
 
 
        'Alle
        'abgearbeitet
        'nicht abgearbeitet
        'nach MAXIMO ueberfuehrt
 
        'Beg: erledigt
        Dim col_gefunden = LagerDB.Lagerliste.INMAXIMOColumn.ColumnName
        Dim col_abgearbeitet = LagerDB.Lagerliste.abgearbeitetColumn.ColumnName
        Dim col_ueberfuehrt = LagerDB.Lagerliste.NACHMAXIMOColumn.ColumnName
        Me.Cursor = Cursors.WaitCursor
        Select Case cbx_Status_Filter.SelectedIndex
            Case 0 : fltErledigt = String.Empty                                 _
                                                                                _
                  'Alle
            Case 1 : fltErledigt = String.Format("[{0}] = '{1}'", _
            col_abgearbeitet, True, String.Format("[{0}] = '{1}'", _
            col_gefunden, False))        'abgearbeitet
            Case 2 : fltErledigt = String.Format("[{0}] = '{1}'", _
            col_abgearbeitet, False, String.Format("[{0}] = '{1}'", _
            col_gefunden, False))       'nicht abgearbeitet
            Case 3 : fltErledigt = String.Format("[{0}] = '{1}'", _
            col_ueberfuehrt, True, String.Format("[{0}] = '{1}'", col_gefunden, _
            True))          'nach MAXIMO-Ueberfuehrt
 
        End Select
        'End: erledigt
        BS_Lagerliste.Filter = fltErledigt
        Me.Cursor = Cursors.Default