Unable to Purge a record using RemoveRecordEx

 

To Simulate the same, Open a Vb Std Exe Project, add reportcontrol and commandbars of Codejock 11.1.0 release. Then put the following code block into the form1 module.

 

 

Dim PopupBar As XtremeCommandBars.CommandBar

Private Sub Form_Load()
    Dim xR As ReportRecord, i As Integer, j As Integer
   
    Dim xbtn As CommandBarControl
    Set PopupBar = CommandBars1.Add("Popup", xtpBarPopup)
    With PopupBar.Controls
        Set xbtn = .Add(xtpControlButton, 0, "Remove Record")
    End With
   
   
    For j = 0 To 3
        ReportControl1.Columns.Add j, "Col" & Str(j), 100, True
    Next j
   
    For i = 1 To 20
        Set xR = ReportControl1.Records.Add
        For j = 1 To 4
            xR.AddItem "Cell" & Str(i) & Str(j)
        Next j
    Next i
    ReportControl1.Populate
End Sub

Private Sub Form_Resize()
    ReportControl1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub ReportControl1_RowRClick(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem)
    Dim popId As Long, ChildRecord As ReportRecord
    popId = PopupBar.ShowPopup(TPM_RETURNCMD)
    Select Case popId
        Case 0
             'ReportControl1.RemoveRecordEx Row.Record
             ReportControl1.RemoveRowEx Row
             ReportControl1.Populate
        Case Else
    End Select
   
End Sub