GroupRow collasped

I find the error

I have deleted  a reportControl.redraw , and things work ok.

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.

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

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