Footer Sum |
Post Reply |
Author | |
yfphang
Newbie Joined: 24 December 2011 Status: Offline Points: 5 |
Post Options
Thanks(0)
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... |
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |