Codejock Developer Community : RESOLVED: Group By Clicked Column

RESOLVED: Group By Clicked Column : Very nice. Thank you!!

Tue, 08 Jul 2008 14:06:14 +0000

Author: JasonG
Subject: 11349
Posted: 08 July 2008 at 2:06pm

Very nice. Thank you!!

RESOLVED: Group By Clicked Column : There is a better solution...You...

Tue, 08 Jul 2008 14:04:31 +0000

Author: jpbro
Subject: 11349
Posted: 08 July 2008 at 2:04pm

There is a better solution...You can use the SortOrder object to get the first column in the Sort Order and skip the API & HitTest methods entirely:


Private Sub ReportControl1_SortOrderChanged()
    With Me.ReportControl1
      .GroupsOrder.DeleteAll
      .GroupsOrder.Add .SortOrder.Column(0)
      
      .Populate
   End With
End Sub

RESOLVED: Group By Clicked Column : I have a solution, but it seems...

Tue, 08 Jul 2008 14:01:32 +0000

Author: jpbro
Subject: 11349
Posted: 08 July 2008 at 2:01pm

I have a solution, but it seems a little convoluted, so maybe there's a better way.

It appears the ColumnClick event doesn't fire when you click the header, but the SortOrderChanged event does. Problem is the SortOrderChanged event doesn't tell you what column was clicked, so you have to get the current cursor position, convert it to client coordinates and then get the column from the ReportControl HitTest method:


Private Type POINTAPI
   x As Long
   y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long

Private Sub ReportControl1_SortOrderChanged()
   Dim objHT As ReportHitTestInfo
   Dim udtCursor As POINTAPI

    With Me.ReportControl1
      GetCursorPos udtCursor
      ScreenToClient .hwnd, udtCursor
    
      Set objHT = .HitTest(udtCursor.x, udtCursor.y)
    
      If Not objHT Is Nothing Then
         If Not objHT.Column Is Nothing Then
            .GroupsOrder.DeleteAll
            .GroupsOrder.Add objHT.Column

            .Populate
         End If
      End If
      
   End With
End Sub

RESOLVED: Group By Clicked Column : I am looking for some code...

Tue, 08 Jul 2008 13:45:29 +0000

Author: JasonG
Subject: 11349
Posted: 08 July 2008 at 1:45pm

I am looking for some code that will sort AND group the report by the column clicked. When I initialize the form, I am setting a default grouping/sorting as shown here:

        Set Column = lstMessages.Columns.Add(3, "From", 130, True)
        Set C = Column
        Set Column = lstMessages.Columns.Add(4, "First", 90, True)
        Set Column = lstMessages.Columns.Add(5, "Last", 90, True)
        Set Column = lstMessages.Columns.Add(6, "fullmessage", 90, True)
        lstMessages.GroupsOrder.Add C

The current code I have is below, however the desired affect is not occurring. Only the sorting is taking place... The original grouping is not removed, nor is the new one added.

    Private Sub lstMessages_ColumnClick(ByVal Column As XtremeReportControl.IReportColumn)
        lstMessages.GroupsOrder.DeleteAll
        lstMessages.GroupsOrder.Add Column
        lstMessages.Populate
    End Sub