OpenOffice.info

Code: Alles auswählen

Sub CheckBoxFilter      
	aQueries = array()
	  x = 0
      for i = 1 to 15
         oCkeckBox = oDialog.getControl("CheckBox" & i)
         If oCkeckBox.State = 1 Then
	        ReDim Preserve aQueries(x)
            aQueries(x) =  oCkeckBox.Model.Label
         x = x + 1
         oCkeckBox.State = 0
         End If
      Next
   Call Start
End Sub

Code: Alles auswählen

Sub SDialog
	DialogLibraries.LoadLibrary("Standard")
 	oDialog = createUnoDialog(DialogLibraries.Standard.SDialog)
	oDialog.execute()
End Sub

Sub CheckBoxFilter
      x = 0
      for i = 1 to 15
         oCkeckBox = oDialog.getControl("CheckBox" & i)
         If oCkeckBox.State = 1 Then
            ' Label der eingeschalteten Checkbox in Filter-Array kopieren
	        ReDim Preserve aQueries(x)
            aQueries(x) =  oCkeckBox.Model.Label
         x = x + 1
         End If
      Next
   ' ... SQL-String mit Filterbedingungen
   '  aus aFilter() zusammensetzen ...
   Call Start
End Sub

Sub Start
	for i=LBound(aQueries) to uBound(aQueries)
	next
	If i = 0 Then
	msgbox "Keine Liste Ausgewählt!", 0, "Fehler!"
    Else 
    Call Export
    End if
End Sub

Code: Alles auswählen

Sub CheckBoxFilter
	Dim oDialog as object, oCkeckBox as object
	Dim i as integer, iDlgOK as integer
	Dim aFilter(3) as string

	oDialog = CreateUnoDialog(DialogLibraries.Standard.FilterDialog)
	iDlgOK = oDialog.Execute()
	if iDlgOK = 1 then ' Ok-Button gedrueckt
		for i = 0 to 3
			oCkeckBox = oDialog.getControl("CheckBox" & i)
			if oCkeckBox.State = 1 then
				' Label der eingeschalteten Checkbox in Filter-Array kopieren
				aFilter(i) =  oCkeckBox.Model.Label
			end if
		next
	end if
	' ... SQL-String mit Filterbedingungen
	'  aus aFilter() zusammensetzen ...
End Sub