Codejock Developer Community : Group By Column ?

Group By Column ? : That does it!!

Fri, 03 Feb 2006 12:15:41 +0000

Author: John31
Subject: 3596
Posted: 03 February 2006 at 12:15pm

That does it!!

Group By Column ? : Why not something like this?'For...

Fri, 03 Feb 2006 12:14:28 +0000

Author: SuperMario
Subject: 3596
Posted: 03 February 2006 at 12:14pm

Why not something like this?

'For this I assume Control.Parameter is the ID of the column that was hidden

Case ID_REPORTCONTROL_GROUP_BY_COLUMN
    If Control.Checked Then
         wndReportControl.GroupsOrder.RemoveAt(wndReportControl.Group sOrder.IndexOf(wndReportControl.Columns.Find(Control.Paramet er)))
    Else
        RC1.GroupsOrder.Add RC1.Columns.Find(Control.Parameter)
    End If
    m_lGroupCount = RC1.GroupsOrder.Count
    RC1.Populate
    UpdateRowCounts

Group By Column ? : Thanks Mario that worked for what...

Fri, 03 Feb 2006 12:02:57 +0000

Author: John31
Subject: 3596
Posted: 03 February 2006 at 12:02pm

Thanks Mario that worked for what I needed. I will have to live with the other behavior for now as I don't think it will be a big deal.

It would be nice to have an option GroupsOrder.Delete (ReportColumn) in addition to the DeleteAll. It would make the follow code easier. Keep up the great work!!!!

Case ID_REPORTCONTROL_GROUP_BY_COLUMN
    If Control.Checked Then
        Dim cCol As New Collection
        Dim oCol As ReportColumn
        For i = 0 To RC1.GroupsOrder.Count - 1
           If RC1.GroupsOrder(i).Caption <> RC1.Columns.Find(Control.Parameter).Caption Then
                 cCol.Add RC1.GroupsOrder(i)
           End If
        Next i
        ' now remove all columns
        RC1.GroupsOrder.DeleteAll
        ' put the other ones back in
        For i = 1 To cCol.Count
           Set oCol = cCol(i)
           RC1.GroupsOrder.Add oCol
        Next i
    Else
        RC1.GroupsOrder.Add RC1.Columns.Find(Control.Parameter)
    End If
    m_lGroupCount = RC1.GroupsOrder.Count
    RC1.Populate
    UpdateRowCounts

Group By Column ? : Can't think of a good way...

Fri, 03 Feb 2006 11:38:33 +0000

Author: SuperMario
Subject: 3596
Posted: 03 February 2006 at 11:38am

Can't think of a good way as this is the way it is supposed to behave. Maybe something like:

'Global
Dim currentGroupCount As Integer

'In Form_Load
currentGroupCount = wndReportControl.GroupsOrder.Count


Private Sub wndReportControl_ColumnOrderChanged()
    If (wndReportControl.GroupsOrder.Count > currentGroupCount) Then
        wndReportControl.GroupsOrder.Column(wndReportControl.GroupsO rder.Count - 1).Visible = True
        wndReportControl.Redraw
        currentGroupCount = currentGroupCount + 1
    ElseIf (wndReportControl.GroupsOrder.Count < currentGroupCount) Then
        currentGroupCount = currentGroupCount - 1
    End If
End Sub

Group By Column ? : When adding a column to the groups...

Fri, 03 Feb 2006 10:55:53 +0000

Author: John31
Subject: 3596
Posted: 03 February 2006 at 10:55am

When adding a column to the groups order using GroupsOrder.Add the column remains visible in the ReportControl. However, if you ShowGroupBox and then drag a column to the GroupBox it removes it from the ReportControl.

Is there a way to make the drag opertion to GroupBox behave the same as it does when you do the GroupsOrder.Add?

If not, can I code arround it to put the column back in the ReportControl once it has been added to the GroupBox?

Is there an event that fires when the GroupBy has changed?