Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Report Control
  New Posts New Posts RSS Feed - Transposed Grouping
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Transposed Grouping

 Post Reply Post Reply
Author
Message
joeliner View Drop Down
Senior Member
Senior Member
Avatar

Joined: 09 June 2006
Status: Offline
Points: 273
Post Options Post Options   Thanks (0) Thanks(0)   Quote joeliner Quote  Post ReplyReply Direct Link To This Post Topic: Transposed Grouping
    Posted: 31 July 2009 at 5:08am

On the release notes there is a feature i really need to know how to apply it:

Transposed Grouping (Column-based) (while existed Grouping is Rows-based)
 
A sample would help!
 
Thanks
Product: Xtreme SuitePro (ActiveX) version 13.1
Platform: Windows XP SP 3
Language: Visual Basic 6 SP6
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 13 August 2009 at 3:36pm
Back to Top
joeliner View Drop Down
Senior Member
Senior Member
Avatar

Joined: 09 June 2006
Status: Offline
Points: 273
Post Options Post Options   Thanks (0) Thanks(0)   Quote joeliner Quote  Post ReplyReply Direct Link To This Post Posted: 17 August 2009 at 1:23am
Is there hope that CJ will implement something like this:



Something like columns within columns.

regards,
Product: Xtreme SuitePro (ActiveX) version 13.1
Platform: Windows XP SP 3
Language: Visual Basic 6 SP6
Back to Top
joeliner View Drop Down
Senior Member
Senior Member
Avatar

Joined: 09 June 2006
Status: Offline
Points: 273
Post Options Post Options   Thanks (0) Thanks(0)   Quote joeliner Quote  Post ReplyReply Direct Link To This Post Posted: 17 August 2009 at 3:32am
uploads/20090817_032054_RcPlusMinus_bug.rar

Hi,

this feature has a bug when you user savesettings. After savesettings the 'hidden' groups dont show even after you click on plus-minus. see attached project for more info.

Then on a cosmetic note, if i wud equate > to + and < to -, then
if columns are show, use <
else if hidden
use >
end if :)

just my thoughts
Product: Xtreme SuitePro (ActiveX) version 13.1
Platform: Windows XP SP 3
Language: Visual Basic 6 SP6
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 17 August 2009 at 10:04am
Thanks - this is not bug in feature but in old SaveSetting / LoadSetting functions - I will take a look 
You can also use this PlusMinus feature with negative settings - it will show / hide columns LEFT of PlusMinus Column
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 17 August 2009 at 4:50pm
This is fresh version covered your bug case - https://forum.codejock.com/uploads/DemoVersion/ReportControlUpdated.rar
 
Flag .PaintManager.ColumnPlusMinusSign = True
show more reasonable for functionality icons - please try

 
Private Sub Form_Load()
  
   With Me.ReportControl1
      .ShowGroupBox = True
      With .Columns.Add(.Columns.Count, "Col1", 100, True)
         .PlusMinus = True
         .NextVisualBlock = 2

'         .Expanded = False
'THIS IS PROPER INITIAL SETTING NOW because we don't have follows columns yet
'I CHANGED DEFAULT to be False so you don't need to use such setting in your initialization code

      End With
      .Columns.Add .Columns.Count, "Col2", 100, True
      .Columns.Add .Columns.Count, "Col3", 100, True
     
      With .Records.Add
         .AddItem "A"
         .AddItem "B"
         .AddItem "C"
      End With
     
      .Populate
      .PaintManager.ColumnPlusMinusSign = True
 
  End With
   
    openlayout
   
End Sub
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 17 August 2009 at 5:25pm
Still I am not sure that SaveSettings - LoadSettings is safe way for all cases - e.g. if you call SaveSettings only in Form_Unload
and LoadSettings in Form_Load - it looks safe but if you call LoadSettings after some user steps - you can't be sure that static set of properties will match user expectations 
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 18 August 2009 at 5:16pm
About your layout - I think that you can use in this case simple title logic everybody understand:
 
Customer Address | ..Name | ..Phone | ..Pet | ..Birthday | Supplier Address | ..Name | ..Phone | ..Pet | ..Birthday | ...
 
like full-qualified name and intenal name inside same qualifier
 
btw - there is your respond about modified ocx?
as we are going to make release sometimes in September - you all should review current state of control and report now to make some improvements...
[same rule as before - clear isolated test-case with simple VB sample to proof]
for example - I know that some RC properties not covered by SaveSettings - LoadSettings or design-mode PropertyBag but this is in most case minor and developer can always write proper initialization code to be sure that app will run in proper mode.
Back to Top
mlatona View Drop Down
Senior Member
Senior Member


Joined: 19 April 2005
Location: Germany
Status: Offline
Points: 124
Post Options Post Options   Thanks (0) Thanks(0)   Quote mlatona Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 7:20am
Hi Mark,
 
the report control don`t work correct when I use a negative settings. Not all columns are visible, when I expand the plus minus column.
 
Regards
Marco
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows XP
Language: Visual Basic 6.0 SP6
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 7:28am
Are you sure that in the moment you set column#5 - PlusMinus and NextVisualBlock = -2 you already have visible column#4 and column#3?
Back to Top
mlatona View Drop Down
Senior Member
Senior Member


Joined: 19 April 2005
Location: Germany
Status: Offline
Points: 124
Post Options Post Options   Thanks (0) Thanks(0)   Quote mlatona Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 7:38am
Hi, here is a sample. Collapse column 'Q1'. Column 'Jan', 'Feb' and 'May' are hidden. Exand column 'Q1'. Only column 'Jan' and 'Feb' are visible.uploads/20090819_073816_PlusMinusSample.zip
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows XP
Language: Visual Basic 6.0 SP6
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 7:39am
Thanks
Try this simple code please
Private Sub Form_Load()
  
   With Me.ReportControl1
      .ShowGroupBox = True
      With .Columns.Add(.Columns.Count, "Col1", 100, True)
         .PlusMinus = True
         .NextVisualBlock = 2
      End With
      With .Columns.Add(.Columns.Count, "Col2", 100, True)
      End With
      With .Columns.Add(.Columns.Count, "Col3", 100, True)
         .PlusMinus = True
         .NextVisualBlock = -2
      End With
     
      With .Records.Add
         .AddItem "A"
         .AddItem "B"
         .AddItem "C"
      End With
     
      .Populate
      .PaintManager.ColumnPlusMinusSign = True
   End With
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 7:56am
If I modify your sample like this - easy to see
Private Sub Form_Load()
With ReportControl1
  .Columns.Add 0, "Jan", 50, False
  .Columns.Add 1, "Feb", 50, False
  .Columns.Add 2, "Mar", 50, False
 
  With .Columns.Add(3, "Q1", 50, False)
    .PlusMinus = True
    .NextVisualBlock = -2
  End With
 
  .Columns.Add 4, "Apr", 50, False
  .Columns.Add 5, "May", 50, False
  .Columns.Add 6, "Jun", 50, False
  With .Columns.Add(7, "Q2", 50, False)
    .PlusMinus = True
    .NextVisualBlock = -2
  End With
  .PaintManager.ColumnPlusMinusSign = True
  .Populate
End With
End Sub
it works. Will check deep
 
Back to Top
mlatona View Drop Down
Senior Member
Senior Member


Joined: 19 April 2005
Location: Germany
Status: Offline
Points: 124
Post Options Post Options   Thanks (0) Thanks(0)   Quote mlatona Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 8:14am
Yes, it works, but column 'Jan' is visible when you collapse the column 'Q1' and this is not correct.
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows XP
Language: Visual Basic 6.0 SP6
Back to Top
mlatona View Drop Down
Senior Member
Senior Member


Joined: 19 April 2005
Location: Germany
Status: Offline
Points: 124
Post Options Post Options   Thanks (0) Thanks(0)   Quote mlatona Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 8:17am
Try this code and it works not correct.
 
With Me.ReportControl1
      .ShowGroupBox = True
      With .Columns.Add(.Columns.Count, "Col1", 100, True)
         .PlusMinus = True
         .NextVisualBlock = 2
      End With
      With .Columns.Add(.Columns.Count, "Col2", 100, True)
      End With
      With .Columns.Add(.Columns.Count, "Col3", 100, True)
      End With
      With .Columns.Add(.Columns.Count, "Col4", 100, True)
         .PlusMinus = True
         .NextVisualBlock = -3
      End With
     
      With .Records.Add
         .AddItem "A"
         .AddItem "B"
         .AddItem "C"
      End With
     
      .Populate
      .PaintManager.ColumnPlusMinusSign = True
   End With
 
 
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows XP
Language: Visual Basic 6.0 SP6
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 8:44am
Back to Top
mlatona View Drop Down
Senior Member
Senior Member


Joined: 19 April 2005
Location: Germany
Status: Offline
Points: 124
Post Options Post Options   Thanks (0) Thanks(0)   Quote mlatona Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 9:03am
It works. Thank you. Is it possible, that you add a unicode version in your rar file?
Product: Xtreme SuitePro (ActiveX) version 13.2.1
Platform: Windows XP
Language: Visual Basic 6.0 SP6
Back to Top
mdoubson View Drop Down
Senior Member
Senior Member
Avatar

Joined: 17 November 2008
Status: Offline
Points: 1705
Post Options Post Options   Thanks (0) Thanks(0)   Quote mdoubson Quote  Post ReplyReply Direct Link To This Post Posted: 19 August 2009 at 9:10am
Ok - get it
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.203 seconds.