http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 15 May 2026 23:04:02 +0000 Mon, 26 Mar 2007 13:40:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=6736 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=6736&PID=21466&title=setting-groupcaption#21466 Author: jcollier
Subject: 6736
Posted: 26 March 2007 at 1:40pm

Got it.  Pieced together a few different posts.

Private Sub rpt_ColumnOrderChanged()

    Dim i As Long
    Dim lngCount As Long
    Dim lngTotalTime As Long
    Dim Row As ReportRow
   
    For i = rpt.Rows.count - 1 To 0 Step -1
        Set Row = rpt.Rows(i)
        If Row.GroupRow Then
            Row.GroupCaption = Row.GroupCaption + " -- Total Time: " + Format(lngTotalTime / 60, "0.00") + " -- Quantity: " + CStr(lngCount)
            lngTotalTime = 0
            lngCount = 0
        Else
            lngTotalTime = lngTotalTime + CLng(Row.Record.Item(COL_TOTALTIME).Tag)
           
            If Row.Record.Item(COL_QUANTITY).Value <> vbNullString Then
                lngCount = lngCount + CLng(Row.Record.Item(COL_QUANTITY).Value) + 0
            End If
        End If
    Next i
End Sub
]]> Mon, 26 Mar 2007 13:40:33 +0000 http://forum.codejock.com/forum_posts.asp?TID=6736&PID=21466&title=setting-groupcaption#21466 http://forum.codejock.com/forum_posts.asp?TID=6736&PID=21465&title=setting-groupcaption#21465 Author: jcollier
Subject: 6736
Posted: 26 March 2007 at 12:55pm

I need to traverse the report control bottom to top, making calculations along the way and updating GroupCaption with those Calculations.  Any idea how to accomplish this?]]> Mon, 26 Mar 2007 12:55:26 +0000 http://forum.codejock.com/forum_posts.asp?TID=6736&PID=21465&title=setting-groupcaption#21465