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

GroupRow collasped

 Post Reply Post Reply
Author
Message
amenis View Drop Down
Newbie
Newbie


Joined: 30 January 2007
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote amenis Quote  Post ReplyReply Direct Link To This Post Topic: GroupRow collasped
    Posted: 07 February 2007 at 5:15am
Hello from france,

I would like collapse the groupRow tree, but keep expanded branchs where I have tagged records.
I have done many tests and  many Times my reportControl crash.

thank you for your help
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 07 February 2007 at 5:47am
Hi,

Could you please attach any of your test applications there?

--
WBR,
Serge
Back to Top
amenis View Drop Down
Newbie
Newbie


Joined: 30 January 2007
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote amenis Quote  Post ReplyReply Direct Link To This Post Posted: 21 February 2007 at 4:32am
Well, I'm be back 

I have plugged the follow procedure in a sample project, and these work perfectly.
In the original project (which is more weighty), my tree is collapsed too, but ...
when i want expand branch , it's not the branch where I click on which has been expanded. The ReportControl_RowExpanded return me the good groupCaption.

Any idea ?

here my procedures (two way) :

Private Sub collapseAsc(index As Integer)
    Dim row As ReportRow
    Dim lCpt As Long
   
    For lCpt = ReportControl(index).Rows.Count - 1 To 0 Step -1
        Set row = ReportControl(index).Rows(lCpt)
        If row.GroupRow Then
            If haveRecordChildTagged(row) Then
                row.Expanded = True
            Else
                row.Expanded = False
            End If
        End If
    Next
   
End Sub

Private Sub collapseDesc(index As Integer)
    Dim row As ReportRow
   
    For Each row In ReportControl(index).Rows
        If row.GroupRow Then
            If haveRecordChildTagged(row) Then
                row.Expanded = True
            Else
                row.Expanded = False
            End If
        End If
    Next
   
End Sub
Back to Top
amenis View Drop Down
Newbie
Newbie


Joined: 30 January 2007
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote amenis Quote  Post ReplyReply Direct Link To This Post Posted: 21 February 2007 at 8:55am
a snapshot of my (your ? ) probleme


Back to Top
amenis View Drop Down
Newbie
Newbie


Joined: 30 January 2007
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote amenis Quote  Post ReplyReply Direct Link To This Post Posted: 21 February 2007 at 11:26am
more  , and more investigations ...

The problem occure when :
1) I insert a new record in reportControl.records
2) run reportControl.populate
3) run collapseDesc

If i do sort and in sort event i put :

Private Sub ReportControl_SortOrderChanged(Index As Integer)
    collapseDesc Index
End Sub

ReportControl is ok , the problem reported disappear.




Back to Top
amenis View Drop Down
Newbie
Newbie


Joined: 30 January 2007
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote amenis Quote  Post ReplyReply Direct Link To This Post Posted: 21 February 2007 at 11:43am
Arf i use collapseAsc instead collapseDesc. collapseDesc doesn't work.
Back to Top
amenis View Drop Down
Newbie
Newbie


Joined: 30 January 2007
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote amenis Quote  Post ReplyReply Direct Link To This Post Posted: 22 February 2007 at 4:07am
I find the error

I have deleted  a reportControl.redraw , and things work ok.
Back to Top
sserge View Drop Down
Moderator Group
Moderator Group


Joined: 01 December 2004
Status: Offline
Points: 1297
Post Options Post Options   Thanks (0) Thanks(0)   Quote sserge Quote  Post ReplyReply Direct Link To This Post Posted: 22 February 2007 at 3:21pm
Fine!

--
WBR,
Serge
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.156 seconds.