OpenOffice.info

Code: Alles auswählen

sub Filter_setzen( oEvent as variant )

       Dim oFeld as variant
       Dim sID as variant
       Dim oDoc as variant
       Dim oForm as variant
       Dim oDoc2 as variant
       Dim oForm2 as variant

       oDoc = StarDesktop.CurrentComponent
       oForm = oDoc.DrawPage.Forms.GetByIndex(0)
    REM die ID des ersten Formulars wird ausgelesen (ist z.B. wie hier ein Formularfeld)
       oFeld = oForm.getByName("WertTextBox")     
       sID = oFeld.text
       OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, _
       OEvent.Source.Model.Parent.ActiveConnection, _
       "Bestellungsformular")
    REM => dann Filter setzen
       oDoc2= ThisComponent
       oForm2 = oDoc2.DrawPage.Forms(0)
       oForm2.filter = "Bestellungsformular" + sID
    REM =>setzen des Filters für das neue Formulardokument
       oForm2.ApplyFilter=true
       oForm2.reload
    end sub

Code: Alles auswählen

Sub lostFocus_txtProduktfilter( oEvt as objekt )
oControl = oEvt.Source.Model 
oMainForm = oControl.Parent
oProdukt = oMainForm.getByName("lbxProdukt")
oFilter =  oMainForm.getByName("txtProduktFilter")
sql = "SELECT ""Bezeichnung"", ""ArtNr"" FROM ""Artikel"""
if oFilter.Text > "" then
	oProdukt.ListSource=Array(sql & " WHERE ""Bezeichnung"" LIKE '" & oFilter.Text &"'")
else
	oProdukt.ListSource=Array(sql)
End IF
oProdukt.refresh()
'msgbox oProdukt.DBG_Methods
End Sub

Code: Alles auswählen

….
       oDoc2 = ThisComponent
       oForm2 = oDoc2.DrawPage.Forms.GetByName("Artikelliste") 'oder getByIndex()
    REM das Feld des Formulars wird ausgelesen (ist z.B. wie hier ein Formularfeld)
       oFeld = oForm2.getByName("WertTextBox")
       sSuchwort = oFeld.text
    REM => dann Filter setzen
       oForm2.filter = "`NumericField2` LIKE '"+sSuchwort+"'" REM als Textstring
       REM oder: "`NumericField2` ="+sSuchwort REM wenn nach einem Wert gesucht wird. Ggf. noch mit
       REM cInt( sSuchwort) von string in integer umwandeln
    REM =>setzen des Filters für das neue Formulardokument
       oForm2.ApplyFilter=true
       oForm2.reload()
    end sub

Code: Alles auswählen

`Feldname` LIKE 'Suchstring' 

Code: Alles auswählen

`Feldname` = cInt(Suchstring)

Code: Alles auswählen

"`Feldname` LIKE ' " + Suchstring +"'"

Code: Alles auswählen

       sub Filter_setzen ( oEvent as variant )

       Dim oFeld as variant
       Dim sID as variant
       Dim oDoc as variant
       Dim oForm as variant
       Dim oDoc2 as variant
       Dim oForm2 as variant

       oDoc2 = ThisComponent
       oForm2 = oDoc2.DrawPage.Forms.GetByName("Artikelliste") 'oder getByIndex()
    REM das Feld des Formulars wird ausgelesen (ist z.B. wie hier ein Formularfeld)
       oFeld = oForm2.getByName("WertTextBox")
       sSuchwort = oFeld.text
    REM => dann Filter setzen
       oForm2.filter = "`NumericField2` = cInt(Suchstring)" REM als Textstring
       REM oder: "`NumericField2` ="+sSuchwort REM wenn nach einem Wert gesucht wird. Ggf. noch mit
       REM cInt( sSuchwort) von string in integer umwandeln
    REM =>setzen des Filters für das neue Formulardokument
       oForm2.ApplyFilter=true
       oForm2.reload()
    end sub

Code: Alles auswählen

sub Test_Filter_setzen

       Dim oFeld as variant
       Dim sID as variant
       Dim oDoc as variant
       Dim oForm as variant
       Dim oDoc2 as variant
       Dim oForm2 as variant

       oDoc2 = ThisComponent
       oForm2 = oDoc2.DrawPage.Forms.GetByName("Artikelliste") 'oder getByIndex()
    REM das Feld des Formulars wird ausgelesen (ist z.B. wie hier ein Formularfeld)
       oFeld = oForm2.getByName("WertTextBox")
       sSuchwort = oFeld.text
 
       
    REM => dann Filter setzen
       oForm2.filter = "`NumericField2` = "+ cInt(sSuchwort)
    REM =>setzen des Filters für das neue Formulardokument
       oForm2.ApplyFilter=true
       oForm2.reload()
end sub

Code: Alles auswählen

oDoc2 = ThisComponent