Hi,
> Noelson Duarte ha scritto:
> > Hi,
> >
> > Yes, it's possible:
> > http://www.oooforum.org/forum/viewtopic.phtml?t=70292
>
> Tks...
> but the code in link above (as is) look not work properly in any
conditions.
Here, code from the _last_ post of above link is working fine.
> If the enumeration is the way, the code under instead work, and may
be
> usefull in most conditions.
>
>
> Sub HasFilter_in_Sheet()
> Dim oSheet
> Dim oFilterDesc
> oSheet = ThisComponent.currentController.activeSheet
> 'current sheet
> For i = 2 to getLastUsedRow(oSheet)
> if oSheet.getRows().getByIndex(i).IsFiltered = true then
> if msgbox ("This sheet is filtered"& CHR$(10) & CHR$(10)_
> & "Remove All Filters ?" ,36, ""& CHR$(10)) = 6 then
> oFilterDesc = oSheet.createFilterDescriptor(True)
> oSheet.filter(oFilterDesc)
> end if
> exit sub
> end if
> Next I
> msgbox "NO filter in This sheet"
> End sub
>
And, within the IDL Reference I can't find that IsFiltered method (or
property) for table rows.
HTH
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
