Suchen innerhalb einer datentabelle

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Suchen innerhalb einer datentabelle

Re: Suchen innerhalb einer datentabelle

von Karl » Fr, 14.11.2008 12:30

Ja sowas geht.

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
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.

Nach oben