Codejock Developer Community : ReportControl SUBSUM

Codejock Developer Community : ReportControl SUBSUM http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 14:28:19 +0000 Sat, 07 Aug 2010 04:40:18 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=17051 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[ReportControl SUBSUM : axdoverm wrote:Hey Guys, If...]]> http://forum.codejock.com/forum_posts.asp?TID=17051&PID=59675&title=reportcontrol-subsum#59675 Author: Aaron
Subject: 17051
Posted: 07 August 2010 at 4:40am

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!
[...]

Hi,

You need SUMSUB(R*C5:R*C6) for calculating "Omzet"

From:

R = Row

* = Rownumber (* means all rows)

C = Column

5 = Column number (=ItemIndex)

To:

R = Row

* = Rownumber (* means all rows)

C = Column

6 = Column number (=ItemIndex)

]]> Sat, 07 Aug 2010 04:40:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=17051&PID=59675&title=reportcontrol-subsum#59675 <![CDATA[ReportControl SUBSUM : Hi I think you need it to...]]> http://forum.codejock.com/forum_posts.asp?TID=17051&PID=59622&title=reportcontrol-subsum#59622 Author: markmark
Subject: 17051
Posted: 05 August 2010 at 4:45am

I think you need it to be SUMSUB(C6:C7)

The "C" is not Col C

But I still have problems with this as well, as I cannot get it to calculate for a single row.

Please see my test app, where you can enter your formula.

Would like to see examples of a single row calculation.

Also Why in the above does it calucalte just Col 6 and not col6 and col7?

Mark

uploads/20100805_044440_example.zip

]]> Thu, 05 Aug 2010 04:45:20 +0000 http://forum.codejock.com/forum_posts.asp?TID=17051&PID=59622&title=reportcontrol-subsum#59622 <![CDATA[ReportControl SUBSUM : Hey Guys,I hope somebody can help...]]> http://forum.codejock.com/forum_posts.asp?TID=17051&PID=59576&title=reportcontrol-subsum#59576 Author: axdoverm
Subject: 17051
Posted: 02 August 2010 at 7:00am

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!

]]> Mon, 02 Aug 2010 07:00:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=17051&PID=59576&title=reportcontrol-subsum#59576