Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

option explicit

Sub CasCadeListbox (oEvent as Object)
oEvent.source.model.commit
'Use the event: mouse inside
' The first listbox does not need the event
dim oListboxControl,oListboxModel
dim oFormModel
dim oFilterGroup() ' This is the group for the listboxes
const cPropertyNames="ListSource ListSourceType" ' I use this getting and setting properties
dim mPropertyValuesOld(),mPropertyNames

' I use the error sub
' for filtering Value list, Native SQL and table list in the listboxes.
' When one of this option for the listboxes are used then the sub produced
' an error for the command in the querycomposer.

on local error goto PlaceBackListboxValues:

oListboxControl=oEvent.source
oListboxModel=oListboxControl.model
if oListboxModel.implementationname="com.sun.star.comp.forms.OListBoxModel" then

   ' The listbox is in a form and not in a gridcontrol
   ' In a gridcontrol we have no group so we can not use this idea
   oFormModel=oListboxModel.parent
   ' Init the oFilterGroup there are all the control with the same name.
   oFormModel.getgroupbyname(oListboxModel.name,oFilterGroup())
   if  UBOUND(oFilterGroup())<>-1 then
      'do action
      '++++++++++++++++++++++
      ' There are several listboxes for searching
      dim oComposer
      mPropertyNames=split(cPropertyNames)
      mPropertyValuesOld=oListboxModel.getPropertyValues(mPropertyNames)
      oComposer =oFormModel.ActiveConnection.GetComposer(_
            choose(oListboxModel.ListSourceType,0,1,2),_
            oListboxModel.listsource(0)         )
      ' I use choose for changing the difference between the listboxsource type to
      ' the command type. It does also filter out the zero for value list and
      ' four for the native SQL
      ' Both cases give an error. The error call the on error and beeps.
      dim x,oListbox
      for x=0 to ubound(oFilterGroup)
         oListbox=oFilterGroup(x)
         'appendFilterByColumn
         if EqualUnoObjects(oListbox,oListboxModel) then
            'Now we knew the place of the listbox in the array
               oListboxModel.setPropertyValues(_
               mPropertyNames,_
               array(array(oComposer.getquery),3))
            ' Set the listsource query and the listsource type.
            ' listsource type is 3   
            
            oListboxModel.refresh '
            oListboxModel.setPropertyValues(_
               mPropertyNames,mPropertyValuesOld)
            exit for
         else
            oListbox.commit 'Be sure the value is commit to the field but not to record
            oComposer.appendFilterByColumn(oListbox.boundfield,createunovalue("boolean",true),1)
         end if
      next

   else
      msgbox   "When you have no group then you can not use this macro" & chr(13) &_
            "Make a group in the form navigator by giving some control the same name"
   end if
   

else print "The control must be a listbox in a form not in a grid control"
end if
on local error goto 0

exit sub


PlaceBackListboxValues:
beep
      oListboxModel.setPropertyValues(_
         mPropertyNames,mPropertyValuesOld)
on local error goto 0
beep
oListboxModel.refresh
end sub