Mit Listen- / Kombinationsfeld einen Filter realisieren
Verfasst: Do, 03.05.2007 22:25
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