StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Deleting within a loop

Deleting within a loop

Thomas Holste — Fri, 13 Mar 2015 09:29:45 GMT

Hi there,

wether I am deleting records within a do .. Loop while bo.movenext Loop or within a

For each enumerable construct, not all records which fulfill a condition to be deleted, are deleted.

As I read some other posts, I already checked that there are no filters or sorts active.

What might be the reason for this? Or what should I do instead?

Thanks in advance

Thomas

RE: Deleting within a loop

Thomas Holste — Fri, 13 Mar 2015 09:29:45 GMT

Hi Ben,

thank you für making that clear.

Best regards

Thomas

RE: Deleting within a loop

StrataFrame Team — Tue, 10 Mar 2015 07:00:15 GMT

Larry's solution will work.

The reason that cycling forward will not work is that the rows are removed from the business object when they are deleted. When you cycle forward through the records and move the CurrentRowIndex forward, it will skip over items like this example:

First Step:

Row1 <- CurrentRowIndex = 0 <- This one is deleted

Row2

Row3

Row4

Row5 <- Count = 5

Second step:

Row2

Row3 <- CurrentRowIndex = 1 <- This one is deleted

Row4

Row5 <- Count = 4

So, on each step, the current row index is advanced, but it skips an item, because all of the items are shifted up at the same time, because you just deleted one of them from the list.

There's basically 3 options:

Larry's solution of working backwards. The current row index shifts the same direction as the items being deleted.
Set ShowDeletedRows = True on the business object before you loop through them. This is probably the easiest because you don't have to change your loop logic. All of the records are still visible in the BO after they are deleted, but are flagged as deleted for the save. This is only logical if you're marking the records as deleted to do a bo.Save() at the end.
Loop while Count > 0 like this:

While bo.Count > 0 '-- or Not bo.IsEmpty

bo.DeleteCurrentRow() '-- Each time you delete a row, the rows will shift up so the next row to delete is always CurrentRowIndex = 0

End While

RE: Deleting within a loop

Thomas Holste — Tue, 10 Mar 2015 05:01:28 GMT

Hi Larry,

thanks for your help. It seems to work and I will test it a little bit more. But I still wonder why the other way does not work.

Best regards

Thomas

RE: Deleting within a loop

Larry Caylor — Tue, 10 Mar 2015 01:04:17 GMT

Try looping backwards. The following assumes you are only going to mark the records
as deleted and you are going to do a save when you're done to do the actual delete/s.

If Not businessObject.IsEmpty Then
     businessObject.MoveLast()
     Do
       If <Some logic to determine you should delete the current row> Then
         businessObject.DeleteCurrentRow(True)
      End If
     Loop While businessObject.MovePrevious
     businessObject.save()
End If