[SOLVED] GroupRow SumSub With SubTotals

    Dim GroupRow As ReportGroupRow, Row As ReportRow

    For i = 0 To rpcGrid.Rows.Count - 1
        Set Row = rpcGrid.Rows(i)
        If Row.GroupRow Then
            Set GroupRow = Row
            GroupRow.GroupFormat = "%.0f"
            GroupRow.GroupFormula = "SUMSUB(C9:C10)"
            GroupRow.GroupCaption = "x"
        End If
    Next
    rpcGrid.ReCalc True
    rpcGrid.ReDraw

' Required to fix the FormatNumber issue after the Group Row SUMSUB has been calculated
Dim bFormatNumber As Boolean

' First set the variable bFormatNumber = False before adding the records to the ReportControl, do NOT format the text using FormatNumber at this time!!!
' Once you have added records to the ReportControl, called ReportControl.Populate and added the code to display the Group Row SUMSUB calculation
' Then set bFormatNumber = True & also ReportControl.SetFocus

Private Sub rpcGrid_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As  XtremeReportControl.IReportRecordItem, ByVal Metrics As  XtremeReportControl.IReportRecordItemMetrics)

    ' Format Group Row Calculations
    If Row.GroupRow Then
        Dim sTextToFind As String
        iPos = InStr(Metrics.Text, "[9]")
        If iPos > 0 Then
            sTextToFind = Mid$(Metrics.Text, iPos + 3, Len(Metrics.Text))
            Metrics.Text = Replace$(Metrics.Text, sTextToFind, FormatNumber$(CDbl(sTextToFind) / 2, 0))
        End If
    End If
    
    ' Format the rows to display the "," delimiter in the column with a numeric value
    If bFormatNumber Then
        Row.Record(9).Value = FormatNumber$(Row.Record(9).Value, 0)
    End If

End Sub