Cant Sum Up!

Set xRecord = wndReport.Records.Add
With xRecord.AddItem(CCur("10,000"))
   .Caption = Format$(.Value, "#,##0.00")
End With

Option Explicit

Private Sub Form_Load()
   With Me.ReportControl1
      With .Columns.Add(.Columns.Count, "Test", 100, True)
         .Groupable = True
      End With
      With .Columns.Add(.Columns.Count, "Test", 100, True)
         .Alignment = xtpAlignmentRight
      End With
      
      .ShowGroupBox = True
      .HideColumnAfterGroupBoxDrop = False
      
      .SetCustomDraw xtpCustomBeforeDrawRow
      
      With .Records.Add
         .AddItem "G1"
         .AddItem CCur("10000")
      End With
      With .Records.Add
         .AddItem "G1"
         .AddItem CCur("10,020.22")
      End With
      With .Records.Add
         .AddItem "G2"
         .AddItem CCur("1000")
      End With
      
      .GroupsOrder.Add .Columns(0)
      .Populate
      
      ReportControl1_GroupOrderChangedEx .Columns(0), xtpReportColumnGroupOrderChanged
   End With
End Sub

Private Sub ReportControl1_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)
   If Not Row.GroupRow Then
      If Item.Index = 1 Then
         Metrics.Text = Format$(Item.Value, "#,##0.00")
      End If
   End If
End Sub

Private Sub ReportControl1_GroupOrderChangedEx(ByVal Column As XtremeReportControl.IReportColumn, ByVal Reason As XtremeReportControl.XTPReportColumnOrderChangedReason)
   Dim lo_Row As ReportRow
   Dim lo_GroupRow As ReportGroupRow
   
   For Each lo_Row In Me.ReportControl1.Rows
      If lo_Row.GroupRow Then
         Set lo_GroupRow = lo_Row
         
         lo_GroupRow.GroupFormula = "SUMSUB(R*C1:R*C2)"
         lo_GroupRow.GroupFormat = "Total: %.02f"
         lo_GroupRow.GroupCaption = "x"
      End If
   Next lo_Row
   
End Sub