Mit Listen- / Kombinationsfeld einen Filter realisieren

[egerlach]

Habe die Lösung gefunden: Bei kombinationsfeld bei Ereignis "Textfeld modifiziert" das Modul eintragen:

Code: Alles auswählen

Sub Main
   oForm = ThisComponent.drawpage.forms.getByName("MainForm")
   oTextfeld = oForm.getByName("AuswahlRegio")
   oTabelle = oForm.getByName("MainForm_Grid")
    sFilter= lcase(oTextfeld.Text) 
    if sFilter <>"" then
        sFilter = "%" & sFilter & "%"
        setFiltA1= " (LCASE(regio) LIKE '" & sFilter & "') "
        rem  setFiltA1= " regio LIKE '" & sFilter & "') "
     else
        setFiltA1= ""
    endif
   rem oForm.ApplyFilter=false
   oForm.Filter= setFiltA1
   'oForm.filter = "id = 1004"
   'oForm.filter = "regio = 'Enzkreis'"
   oForm.ApplyFilter=true
   oForm.Reload
End Sub