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

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