http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 14:50:11 +0000 Thu, 27 May 2010 15:37:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=16362 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=16362&PID=58701&title=sample-for-mergecell-and-grouping-subtotal#58701 Author: SuperMario
Subject: 16362
Posted: 27 May 2010 at 3:37pm

Sub totals in group row:

Option Explicit

Private Sub Command_Click()
    wndReport.Populate
End Sub

Private Sub Form_Load()
    Dim xColumn As XtremeReportControl.ReportColumn
    Dim i As Integer
   
    Set xColumn = wndReport.Columns.Add(0, "Product", 100, True)
    wndReport.Columns.Add 1, "State", 100, True
    wndReport.Columns.Add 2, "Sales", 100, True
    wndReport.Columns.Add 3, "Q-ty", 100, True
    wndReport.Columns.Add 4, "", 100, True
       
    Dim xRecord As XtremeReportControl.ReportRecord
    Dim xRecordItem As XtremeReportControl.ReportRecordItem
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("Pen")
    Set xRecordItem = xRecord.AddItem("NSW")
    Set xRecordItem = xRecord.AddItem(20)
    Set xRecordItem = xRecord.AddItem(1)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("paper")
    Set xRecordItem = xRecord.AddItem("NSW")
    Set xRecordItem = xRecord.AddItem(10)
    Set xRecordItem = xRecord.AddItem(2)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("Books")
    Set xRecordItem = xRecord.AddItem("NSW")
    Set xRecordItem = xRecord.AddItem(10)
    Set xRecordItem = xRecord.AddItem(3)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("Pen")
    Set xRecordItem = xRecord.AddItem("SA")
    Set xRecordItem = xRecord.AddItem(20)
    Set xRecordItem = xRecord.AddItem(4)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("paper")
    Set xRecordItem = xRecord.AddItem("SA")
    Set xRecordItem = xRecord.AddItem(10)
    Set xRecordItem = xRecord.AddItem(5)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("Books")
    Set xRecordItem = xRecord.AddItem("SA")
    Set xRecordItem = xRecord.AddItem(10)
    Set xRecordItem = xRecord.AddItem(6)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("Pen")
    Set xRecordItem = xRecord.AddItem("WA")
    Set xRecordItem = xRecord.AddItem(20)
    Set xRecordItem = xRecord.AddItem(7)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("paper")
    Set xRecordItem = xRecord.AddItem("WA")
    Set xRecordItem = xRecord.AddItem(10)
    Set xRecordItem = xRecord.AddItem(8)
'-------------------------------------------
    Set xRecord = wndReport.Records.Add
    Set xRecordItem = xRecord.AddItem("Books")
    Set xRecordItem = xRecord.AddItem("WA")
    Set xRecordItem = xRecord.AddItem(10)
    Set xRecordItem = xRecord.AddItem(9)
'-------------------------------------------
'Demo for usual rows formula
'    Set xRecord = wndReport.Records.Add
'    Set xRecordItem = xRecord.AddItem("All")
'    Set xRecordItem = xRecord.AddItem("Total")
'    Set xRecordItem = xRecord.AddItem("x")
'    xRecordItem.Format = "%d"
'    'xRecordItem.Formula = "SUMSUB(R1C2:R9C3)" - this is for child records
'    'xRecordItem.Formula = "SUMSUB(R*C2:R*C3)"
'    xRecordItem.Caption = "x"
'    xRecordItem.Formula = "SUM(R*C2:R*C3)"
'    xRecordItem.Editable = False
'
'    Set xRecordItem = xRecord.AddItem("x")
'    xRecordItem.Format = "%d"
'    'xRecordItem.Formula = "SUMSUB(R1C2:R9C3)" - this is for child records
'    'xRecordItem.Formula = "SUMSUB(R*C2:R*C3)"
'    xRecordItem.Caption = "x"
'    xRecordItem.Formula = "SUM(R*C3:R*C4)"
'    xRecordItem.Editable = False
   
    With Me.wndReport
        .PaintManager.ColumnStyle = xtpColumnOffice2007
        '.PaintManager.TreeStructureStyle = xtpTreeStructureSolid
        .SortRecordChildren = True
        .AllowColumnSort = True
        .AllowColumnReorder = True
        .AllowEdit = True
        .FocusSubItems = True
        .ShowGroupBox = True
        .ShowItemsInGroups = True
        .HideColumnAfterGroupBoxDrop = False
    End With
   
    wndReport.IconViewRowNumberSetup 3, 0, 1, 20
    wndReport.PaintManager.RecOrRowNumber = False
    wndReport.PaintManager.StartRecOrRowNumber = 1
    wndReport.Columns.Find(2).TreeColumn = True
    wndReport.PaintManager.TreeIndent = 40

    wndReport.PaintManager.GroupIndentColor = RGB(255, 255, 255)
    wndReport.PaintManager.FormulaSumColor = RGB(0, 255, 255)
    wndReport.ShowRowNumber (True)
   
    wndReport.GroupsOrder.Add xColumn
    wndReport.Populate
    wndReport.ReCalc True
   
    Dim row As ReportRow
    Dim groupRow As ReportGroupRow
    For i = 0 To wndReport.Rows.Count - 1
        Set row = wndReport.Rows(i)
        If row.groupRow Then
            Set groupRow = row
                'groupRow.GroupFormat = " [SubTotal $=%.02f]"
                groupRow.GroupFormat = "%.02f"
                'groupRow.GroupFormula = "SUMSUB(R*C2:R*C4)" 'Old notation
                groupRow.GroupFormula = "SUMSUB(C2:C3) SUMSUB(C3:C4)" 'New (short) notation
                groupRow.GroupCaption = "x"
        End If
    Next
   
myerror:
    If Err.Number > 0 Then
        MsgBox Err.Description
    End If
    
End Sub

Private Sub Form_Resize()
    wndReport.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub


Private Sub wndReport_GroupOrderChangedEx(ByVal Column As XtremeReportControl.IReportColumn, ByVal Reason As XtremeReportControl.XTPReportColumnOrderChangedReason)
    Dim i As Integer
    Dim row As ReportRow
    Dim groupRow As ReportGroupRow
    Dim xRecord As XtremeReportControl.ReportRecord
    Dim xRecordItem As XtremeReportControl.ReportRecordItem

    If Reason & xtpReportColumnAddedToGroupby Then
        For i = 0 To wndReport.Rows.Count - 1
            Set row = wndReport.Rows(i)
            If row.groupRow Then
                Set groupRow = row
                    'groupRow.GroupFormat = " [SubTotal $=%.02f]"
                    groupRow.GroupFormat = "%.02f"
                    'groupRow.GroupFormula = "SUMSUB(R*C2:R*C3)"
                    groupRow.GroupFormula = "SUMSUB(C2:C3) SUMSUB(C3:C4)"
                    groupRow.GroupCaption = "x"
                    'groupRow.GroupCaption = "ABC [2]12.1 [3]15.2"
            End If
        Next
        wndReport.ReCalc True
    End If
   
'    If Reason & xtpReportColumnGroupOrderChanged Then
'        For i = 0 To wndReport.Rows.Count - 1
'            Set row = wndReport.Rows(i)
'            If row.groupRow Then
'                Set groupRow = row
'                    'groupRow.GroupFormat = " [subTotal $=%.02f]"
'                    groupRow.GroupFormat = "$%.02f"
'                    'groupRow.GroupFormula = "SUMSUB(R*C2:R*C3)"
'                    groupRow.GroupFormula = "SUMSUB(C2:C3) SUMSUB(C3:C4)"
'                    'groupRow.GroupCaption = "x"
'            End If
'        Next
'        wndReport.ReCalc True
'    End If
End Sub

]]> Thu, 27 May 2010 15:37:33 +0000 http://forum.codejock.com/forum_posts.asp?TID=16362&PID=58701&title=sample-for-mergecell-and-grouping-subtotal#58701 http://forum.codejock.com/forum_posts.asp?TID=16362&PID=58700&title=sample-for-mergecell-and-grouping-subtotal#58700 Author: SuperMario
Subject: 16362
Posted: 27 May 2010 at 3:36pm

Merged cells:


Option Explicit

Private Sub Form_Load()
Dim column As ReportColumn
Dim item As ReportRecordItem

   With Me.ReportControl1
      Set column = .Columns.Add(.Columns.Count, "1", 50, True)
      column.Editable = False
      column.Sortable = False
      column.Alignment = xtpAlignmentWordBreak
      column.HeaderAlignment = xtpAlignmentWordBreak Or xtpAlignmentCenter
     
      Set column = .Columns.Add(.Columns.Count, "2", 200, True)
      column.Sortable = False
      column.Alignment = xtpAlignmentWordBreak
      column.HeaderAlignment = xtpAlignmentWordBreak Or xtpAlignmentCenter
     
      Set column = .Columns.Add(.Columns.Count, "3", 50, True)
      column.Sortable = False
      column.HeaderAlignment = xtpAlignmentWordBreak Or xtpAlignmentCenter
     
      With .Records.Add
         .AddItem ""
         Set item = .AddItem("CodeJock MFC and ActiveX products ")
         item.MergePreviousCells = 1
         item.Alignment = xtpAlignmentVCenter Or xtpAlignmentCenter
         .AddItem ""
      End With
      With .Records.Add
         Set item = .AddItem("Platform ")
         Set item = .AddItem("MFC, ActiveX")
         .AddItem ""
      End With
      With .Records.Add
         .AddItem ""
         Set item = .AddItem("Calendar, Command Bars, Controls, Docking Pane")
         .AddItem ""
      End With
      With .Records.Add
         Set item = .AddItem("Codejock products for MFC and ActiveX developers ")
         item.MergePreviousVerticalCells = 1
         item.Alignment = xtpAlignmentWordBreak
        
         Set item = .AddItem("Property Grid, Report Control, Shortcut Bar, Skin Framework, Syntax Edit, Task Panel")
         .AddItem ""
      End With
      With .Records.Add
         .AddItem ("Next row")
         .AddItem ("Next item")
         .AddItem ""
      End With
      With .Records.Add
         .AddItem ("Last row")
         .AddItem ("Last item")
         .AddItem ""
      End With
     
      .AllowEdit = True
      .FocusSubItems = True
      .StrictBestFit = True
      .PaintManager.FixedRowHeight = False
      .PaintManager.DrawGridForEmptySpace = True
      .PaintManager.HorizontalGridStyle = xtpGridSolid
      .PaintManager.VerticalGridStyle = xtpGridSolid
      .PaintManager.GridLineColor = RGB(192, 192, 255)
      .PaintManager.AllowMergeCells = True
      .PaintManager.ColumnStyle = xtpColumnOffice2007
      .PaintManager.ForceShowTooltip = True
      .ToolTipContext.Style = xtpToolTipOffice2007
      '.PaintManager.UseColumnTextAlignment = True
      '.FreeHeightMode = True
      .AllowColumnReorder = False
      .AllowColumnSort = False
      .AllowColumnRemove = False
      .ShowGroupBox = False
      .CreateRowNumberColumn 10
      .EnableDragDrop "MergeReport", xtpReportAllowDragMove Or xtpReportAllowDrop
      .Populate
   End With
End Sub

Private Sub Form_Resize()
    Me.ReportControl1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
]]> Thu, 27 May 2010 15:36:04 +0000 http://forum.codejock.com/forum_posts.asp?TID=16362&PID=58700&title=sample-for-mergecell-and-grouping-subtotal#58700 http://forum.codejock.com/forum_posts.asp?TID=16362&PID=57420&title=sample-for-mergecell-and-grouping-subtotal#57420 Author: McKloony
Subject: 16362
Posted: 06 March 2010 at 10:15am

Is there any sample for the new MergePreviousVerticalCells and GroupFormula subtotals?]]> Sat, 06 Mar 2010 10:15:14 +0000 http://forum.codejock.com/forum_posts.asp?TID=16362&PID=57420&title=sample-for-mergecell-and-grouping-subtotal#57420