ReportControl SUBSUM

Hey Guys,

I hope somebody can help me. If you look in the image below you will see that a have a SUBFORMULA in the reportcontrol with a result in the grouprow (nr. 1)


the SUM is now calculating the kolom (nr. 2) and that works, but i would like to get the SUM result from the last colomn in the report (nr. 3). Too calculate the SUM i use the following code: (i found this code on this forum and addepted to my needs)


CODE EXAMPLE:
Public Sub RapportageOmzetPerKlant(sSQL As Variant)
 '
 On Error GoTo HELL
 '
 Dim Column As ReportColumn
 Dim Record As ReportRecord
 Dim Item As ReportRecordItem
 Dim row As ReportRow
 Dim groupRow As ReportGroupRow
 '
 frmMAIN.ReportControl1.Columns.DeleteAll
 frmMAIN.ReportControl1.Records.DeleteAll
 '
 Set Column = frmMAIN.ReportControl1.Columns.Add(0, "Datum", 100, True)
      Column.Visible = True
 Set Column = frmMAIN.ReportControl1.Columns.Add(1, "Factuur", 80, True)
      Column.Visible = True
 Set Column = frmMAIN.ReportControl1.Columns.Add(2, "Aantal", 70, True)
      Column.Visible = True
 Set Column = frmMAIN.ReportControl1.Columns.Add(3, "Omschrijving", 220, True)
      Column.Visible = True
 Set Column = frmMAIN.ReportControl1.Columns.Add(4, "St. Prijs", 90, True)
      Column.Visible = True
 Set Column = frmMAIN.ReportControl1.Columns.Add(5, "Totaal", 100, True)
      Column.Visible = True
 Set Column = frmMAIN.ReportControl1.Columns.Add(6, "KLANT", 0, True)
      Column.Visible = False
      '
   If CNN_DB.state = 1 Then CLOSE_DB_CONNECTION
      '
      OPEN_DB_CONNECTION (sSQL)
        '
        Do Until RST_DB.EOF = True
          '
          Set Record = frmMAIN.ReportControl1.Records.Add()
          Set Item = Record.AddItem(RST_DB.Fields("DATUM") & "")
          Set Item = Record.AddItem(RST_DB.Fields("FACT_NO") & "")
          Set Item = Record.AddItem(RST_DB.Fields("AANTAL") & "")
          Set Item = Record.AddItem(RST_DB.Fields("OMSCHRIJVING") & "")
          Set Item = Record.AddItem(FormatNumber(RST_DB.Fields("ST_PRIJS"), 2) & "")
          Set Item = Record.AddItem(FormatNumber(RST_DB.Fields("REGEL_TOT_INC"), 2) & "")
          Set Item = Record.AddItem(RST_DB.Fields("KLANT") & "")
          '
        RST_DB.MoveNext
        '
      Loop
      '
   If CNN_DB.state = 1 Then CLOSE_DB_CONNECTION
   '
   frmMAIN.ReportControl1.GroupsOrder.Add frmMAIN.ReportControl1.Columns(6)
   frmMAIN.ReportControl1.Populate
   '
   For i = 0 To frmMAIN.ReportControl1.Rows.count - 1
        Set row = frmMAIN.ReportControl1.Rows(i)
        If row.groupRow Then
           Set groupRow = row
           groupRow.GroupFormat = " [Omzet =%.02f]"
           groupRow.GroupFormula = "SUMSUB(C2:C3)"
           groupRow.GroupCaption = "x"
        End If
   Next
   '
   Exit Sub
   '
HELL:
   '
   If CNN_DB.state = 1 Then CLOSE_DB_CONNECTION
   ErrorHandler Err.Number, Err.Description, "modRAPPORTAGE", "RapportageOmzetPerKlant()"
   '

End Sub

If i change the SUMSUB to (F2:F3) i don't get any results, what i'm missing ?? ... i cant figure is out! ... so please HELP ME!

axdoverm wrote: Hey Guys,   [...] If i change the SUMSUB to (F2:F3) i don't get any results, what i'm missing ?? ... i cant figure is out! ... so please HELP ME! [...]