Re: Suchen innerhalb einer datentabelle
Verfasst: Fr, 14.11.2008 12:30
Ja sowas geht.
hier mal ein Auszug aus meinem Code:
Aus der Combobox wählt man aus, was machen haben möchte, Name, Ansprechpartner, PLZ, gibt dann im Textfeld den Begriff ein und das Programm setzt einen Filter auf das Formular. Ich hoffe das reicht euch so.
hier mal ein Auszug aus meinem Code:
Code: Alles auswählen
sub suchenKunde()
dim oField1 as object
dim oSubForm as object
dim oComboBox as object
dim oListbox1 as object
oDoc = ThisComponent
oForm = oDoc.DrawPage.Forms.getByName("Adressdaten")
oSubForm = oForm.getByName("UnterFormular")
oField1 = oForm.getByName("SearchBoxCompany")
oComboBox = oForm.getByName("ComboBox1")
select case oComboBox.selectedItems(0)
case 0:
oForm.Filter="`Kontaktname` LIKE '"+ oField1.CurrentValue + "%'"
case 1:
oForm.Filter="`Ansprechpartner` LIKE '"+ oField1.CurrentValue + "%'"
case 2:
oForm.Filter="`PLZ` LIKE '"+ oField1.CurrentValue + "%'"
end select
if oSubForm.Filter<>"" then
oSubForm.Filter=""
end if
oForm.reload
gotoSuchfeld()
end sub