http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 14 May 2026 15:30:00 +0000 Fri, 06 Jan 2012 00:49:55 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=19388 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=19388&PID=67341&title=footer-sum#67341 Author: yfphang
Subject: 19388
Posted: 06 January 2012 at 12:49am

hi,

would like to find out why i can't perform formula sum and display result in footer ?
below is my code in VB6.0.


    Dim xRecord As XtremeReportControl.ReportRecord
    Dim xRecordItem As XtremeReportControl.ReportRecordItem

    DataLst.ShowFooterRows = True
   
    Set xRecord = DataLst.FooterRecords.Add
    Set xRecordItem = xRecord.AddItem("")
   
     xRecordItem.Bold = True
    Set xRecordItem = xRecord.AddItem("Total:")
   
    For i = 2 To DataLst.Columns.Count - 1
        Set xRecordItem = xRecord.AddItem("")
        xRecordItem.Bold = True
       ' xRecordItem.BackColor = vbBlack
        If i = DataLst.Columns.Count - 1 Then
            xRecordItem.Format = "%.02f"
        Else
            xRecordItem.Format = "%.0f"
        End If
        zz = "SUM(R*C" & i & ":R*C" & i + 1 & ")"
        xRecordItem.Formula = zz
       
        DataLst.Columns(i).Alignment = xtpAlignmentRight
        DataLst.Columns(i).HeaderAlignment = xtpAlignmentRight
        DataLst.ReCalc True
    Next i


if i change the about DataLst.FooterRecords.Add to DataLst.Records.Add i am able to display ...please help...





]]> Fri, 06 Jan 2012 00:49:55 +0000 http://forum.codejock.com/forum_posts.asp?TID=19388&PID=67341&title=footer-sum#67341