Codejock Developer Community : Grouped Row Caption

Grouped Row Caption : Thanks for the code. That works...

Tue, 10 Jul 2007 11:54:58 +0000

Author: shagge22
Subject: 7535
Posted: 10 July 2007 at 11:54am

Thanks for the code. That works great.

Grouped Row Caption : Hi,Take a look at http://forum...

Thu, 05 Jul 2007 16:57:10 +0000

Author: sserge
Subject: 7535
Posted: 05 July 2007 at 4:57pm

Hi,

Take a look at http://forum.codejock.com/forum_posts.asp?TID=4246

As you can see there, the main suggestion is to handle _BeforeDrawRow event and add there a code like:


If Row.GroupRow Then
    If Row.Childs.Count > 1 Then
    Metrics.Text = Row.GroupCaption + " (" + CStr(Row.Childs.Count) + ") documents"
  Else
      Metrics.Text = Row.GroupCaption + " Document"
  End If
End If

--
WBR,
Serge

Grouped Row Caption : I am using report control v. 10.3....

Thu, 05 Jul 2007 14:33:44 +0000

Author: shagge22
Subject: 7535
Posted: 05 July 2007 at 2:33pm

I am using report control v. 10.3. I have noticed that when I update the group caption, the updated text disappears when the populate event is called, why? I have been able to get around the issue, but is there an easy way to keep this from occurring? Here is the code that I am using to perform the group caption update...

Dim sDoc As String
Dim rRow As ReportRow
Dim rGrp As ReportGroupRow

For Each rRow In Rpt_List.Rows
    If rRow.GroupRow Then
        Set rGrp = rRow
        If rGrp.Childs.count = 1 Then
            sDoc = " Document"
        Else
            sDoc = " Documents"
        End If
        rGrp.GroupCaption = rGrp.GroupCaption + " (" +
        CStr(rGrp.Childs.count) + sDoc + ")"
    End If
Next
Rpt_List.Redraw