von kannenklaus » Sa, 07.01.2006 10:06
hallo zusammen,
ich habe einen basic-code zum erzeugen eines datenpiloten weiterentwickelt. nun möchte ich das zwei filterkirterien mit ODER vernküoft werden. die definition und das setzen führt automatisch zur UND verknüpfung.
Code: Alles auswählen
'---definiert das 1. von 2 Filterkriterien---
objFilter(0).Field = 5
objFilter(0).IsNumeric = True
objFilter(0).OPERATOR = com.sun.star.sheet.FilterOperator.GREATER
objFilter(0).NumericValue = 2000
'---übergibt die 1. Filterdefinitionen als Array---
objLayout.FilterDescriptor.setFilterFields(objFilter())
'---definiert das 2. von 2 Filterkriterien---
objFilter(1).Field = 1
objFilter(1).IsNumeric = false 'String wird abgefragt
objFilter(1).OPERATOR = com.sun.star.sheet.FilterOperator.EQUAL
objFilter(1).StringValue = "hochwertige Biotope" 'Wert wird als String übergeben
objLayout.FilterDescriptor.setFilterFields(objFilter())
'---übergibt die 2. Filterdefinitionen als Array---
objLayout.FilterDescriptor.setFilterFields(objFilter())
freue mich auf eine anwort
mfg klaus
hallo zusammen,
ich habe einen basic-code zum erzeugen eines datenpiloten weiterentwickelt. nun möchte ich das zwei filterkirterien mit ODER vernküoft werden. die definition und das setzen führt automatisch zur UND verknüpfung.
[code]'---definiert das 1. von 2 Filterkriterien---
objFilter(0).Field = 5
objFilter(0).IsNumeric = True
objFilter(0).OPERATOR = com.sun.star.sheet.FilterOperator.GREATER
objFilter(0).NumericValue = 2000
'---übergibt die 1. Filterdefinitionen als Array---
objLayout.FilterDescriptor.setFilterFields(objFilter())
'---definiert das 2. von 2 Filterkriterien---
objFilter(1).Field = 1
objFilter(1).IsNumeric = false 'String wird abgefragt
objFilter(1).OPERATOR = com.sun.star.sheet.FilterOperator.EQUAL
objFilter(1).StringValue = "hochwertige Biotope" 'Wert wird als String übergeben
objLayout.FilterDescriptor.setFilterFields(objFilter())
'---übergibt die 2. Filterdefinitionen als Array---
objLayout.FilterDescriptor.setFilterFields(objFilter())[/code]
freue mich auf eine anwort :D
mfg klaus