step trough an dataset and sort stuff out

[x75]

Hi,
I have a DataSet,
and would like to step trough all the rows in one of the tables and delete them if an If clause returens true.

I tried:
For Each row In getFreeZimmerList.Tables(0).Rows
If getBelegungList(row.Item("ZimmerID&quot.ToString, vonDate, bisDate).Tables(0).Rows.Count > 0 Then
row.Delete()
End If
Next

but It won't work since this changes the index of the dataset an then I can't step trough it anymore.

I also tried it with:
For I = 0 To getFreeZimmerList.Tables(0).Rows.Count - 1
If (getBelegungList(getFreeZimmerList.Tables(0).Rows(I).Item("ZimmerID&quot.ToString, vonDate, bisDate).Tables(0).Rows.Count > 0) Then
getFreeZimmerList.Tables(0).Copy.Rows(I).Delete
End If
Next I

Same Problem.
Messes up the index.

Does anyone have suggestion on how to do this?
I thought of copping the "good" rows in a secound dataset and then override the first one with it.

But can't get that to work.

Thanks for any help
Johannes

 

[link9]

Should be able to use a nested while loop. In pseudocode, it might look like:

dim i as integer = 0
while i < rowCount
while theCondition and (i < rowCount)
deleteRow
i += 1
end while
i += 1
end while

Yes, it changes the index, but the first loop makes sure you don't overstep your bounds, and the inner loop deletes rows while the condition is true...

but you still check on every iteration of each loop that you haven't gone over the rowCount, which should avoid any error condition.

So rather than using your &quot;if&quot; to check, you use that inner while loop.

lemme know -
paul