SOLVED: Delete Rows and Childs

Hi it’s me again (I'm Sorry)

 

This time I am trying to delete rows from the report.

 

First I tried:

Dim grdReportRow As ReportRow

  If grdReportRow.GroupRow = False Then

         wndReportControl.Records.RemoveAt (grdReportRow.Record.Index)

  End If

Next

 

But if the row is a child the index starts again, and so the deleted row is not the selected row.

 

Then I try

  If grdReportRow.GroupRow = False Then

        Call wndReportControl.RemoveRowEx(grdReportRow)

  End If

Next

 

 

This seems to work except it will crash.

See example.

In the zip is a Picture with the selection you need to make to cause the crash.

 

 

All I want is to be able to multi select the rows and delete them.

 

 

Thanks for your help

 

MArk

Hi,

try to delete selected rows backwards:

    Dim rptRow As XtremeReportControl.ReportRow
    Dim i As Integer

    For i = (wndReportControl.SelectedRows.Count - 1) To 0 Step -1
        Set rptRow = wndReportControl.SelectedRows.Row(i)
            Debug.Print "about deleting rowindex "; rptRow.Index
        wndReportControl.RemoveRowEx rptRow
    Next i

    wndReportControl.Populate

I could imagine that the cause of the problem is that the internal row collection is reordered every time you delete a row - if you are using and deleting rows with childs. Maybe support can tell us, why deleting selected rows the forward way is crashing.

See the modified sample for a working solution. uploads/20080724_034601_deleterows.zip

Finally this workaround is better than nothing 

Don't forget to add "SOLVED" to the topic when your problem is solved.

Aaron wrote:   Doesn't matter how you do this, [...]

Maybe you are right, but I don't worry about it when there is a workaround. I hope that this forum is read by CJ support and they will investigate the problem.

I deleted the selected two rows with the modified sample and it works - or am I wrong?

Hi All

 

Thanks for all the replies

 

I did contact support and this morning I got a reply.

They said to use the following code

 

Dim grdReportRow As ReportRow

For Each grdReportRow In wndReportControl.SelectedRows

 If grdReportRow.GroupRow = False Then

 

       Call wndReportControl.RemoveRowEx(grdReportRow)

 

 End If

 

Next

 

 

However:

 

This does not work if you select a child row.

It seems that the index for a child row starts again.

 

If you copy that code in the example I sent, you will see that selecting a child row and then run the delete code causes another row to delete.

 

Or may be I’m missing the point in all this.

 

I will now try Peters code and see what happens

 

Thanks again

 

MArk

Hi

 

Peters Code is spot on.

I did make a small addition (In Blue)

 

    For i = (wndReportControl.SelectedRows.Count - 1) To 0 Step -1

            If wndReportControl.SelectedRows.Count > 0 Then

                lngCurrentCount = wndReportControl.SelectedRows.Count

                Set rptRow = wndReportControl.SelectedRows.Row(i)

               

                 wndReportControl.RemoveRowEx rptRow

                

                 If lngCurrentCount - 1 > wndReportControl.SelectedRows.Count Then

                        i = i - 1

                 End If

            End If

       

    Next i

 

If you have  wndReportControl.GroupsOrder.Add Column added,

so that the report groups by a column, its possible to select the group which adds to the selection count.

But when that groups items are deleted the group row deletes its self.

and is also removed from the SelectedRows object.

Hope that makes sense.

 

I hope CJ will help, as its not very elegant.

 

Thanks to you all

 

 

MArk

Thanks you AndreiM

Hi AndreiM