Codejock Developer Community : Xtreme Report: how to collapse/Expand all

Xtreme Report: how to collapse/Expand all : Have you looked at our samples?...

Mon, 23 Jan 2006 07:31:24 +0000

Author: SuperMario
Subject: 3544
Posted: 23 January 2006 at 7:31am

Have you looked at our samples? I.e. in the Report sample if you right-click on a group row you have the option to expand\collapse all rows.


Private Sub mnuCollapseAllGroups_Click()
    Dim GroupRow As ReportRow
    For Each GroupRow In wndReportControl.Rows
        If GroupRow.GroupRow Then
              GroupRow.Expanded = False
        End If
    Next
End Sub

Private Sub mnuExpandAllGroups_Click()
    Dim GroupRow As ReportRow
    For Each GroupRow In wndReportControl.Rows
        If GroupRow.GroupRow Then
              'Expand Group Row
              GroupRow.Expanded = True
        End If
    Next
End Sub

This code works fine in our sample. If you want to keep grouping, you will have to remember the expand\collapse state then after a sort using the SortOrderChanged event you must restore the expand state.


Private Sub wndReportControl_SortOrderChanged()
    If bCollapsed Then
        mnuCollapseAllGroups_Click
    End If
End Sub

Xtreme Report: how to collapse/Expand all : Davide,If you have different buttons...

Sun, 22 Jan 2006 05:09:03 +0000

Author: sserge
Subject: 3544
Posted: 22 January 2006 at 5:09am

Davide,

If you have different buttons for expand / collapse then just try to set Expanded to True.


report_row.Expanded = True

--
WBR,
Serge

Xtreme Report: how to collapse/Expand all : Hi seerge, the code lines in my...

Sat, 21 Jan 2006 16:50:28 +0000

Author: Davide
Subject: 3544
Posted: 21 January 2006 at 4:50pm

Hi seerge, the code lines in my post are those I use to collapse my groups rows. Naturally, the ones I use to expand my rows are the same you have posted. The problem is that this does not work.

What I do:

1) Read a recordset from a database

2) Add records to the report

3) Call the populate method ( so the rows are generated)

4) Activate the group box view

5) Drag'n'Drop a Column Header in the group box

All the rows are now grouped and expanded

6) Press a button that fires up the Collapse code (the code in my post)

It works....

7) Press a button that fires up the Expand code (the same sserge posted)

It doesn't work....

If I click a column header to sort rows by that column all the group returns expanded, but my button doesn't work anymore. Executing code line by line I have seen that the execution skip to 'End If' (with reference to the code previously posted) exactly as the report was zero rows populated.

Some Hint?

Davide

Xtreme Report: how to collapse/Expand all : Hi Davide,When you set Expanded...

Sat, 21 Jan 2006 14:58:41 +0000

Author: sserge
Subject: 3544
Posted: 21 January 2006 at 2:58pm

Hi Davide,

When you set Expanded property to False, you force rows to be collapsed. Following piece of code reverts Expanded state:


Dim report_row As ReportRow
If AxReport.ShowGroupBox Then
    For Each report_row In AxReport.Rows
        If report_row.GroupRow Then
              report_row.Expanded = Not report_row.Expanded
        End If
    Next report_row
End If

--
WBR,
Serge

Xtreme Report: how to collapse/Expand all : Hi All, I am trying to collapse/Expand...

Sat, 21 Jan 2006 11:54:30 +0000

Author: Davide
Subject: 3544
Posted: 21 January 2006 at 11:54am

Hi All,
    I am trying to collapse/Expand all group when a grouping view is activated. I am trying to do it so

                 If AxReport.ShowGroupBox Then
                     For Each report_row In AxReport.Rows
                          If report_row.GroupRow Then
                              report_row.Expanded = False
                          End If
                     Next report_row
                 End If

but it does not work. Better, it works only the first time I collapse all the grouped rows.

Thanks
Davide