ADO itterate datatable & delete row

[Doug Versch]

Hi,

I am trying to itterate through a datatable and delete selected rows but I
get an error stating that the collection has changed when the row is
deleted.

Try
For Each drOrds In dsRecPurchs.Tables("PurchaseRecpts").Rows
If cBool(drOrds("Uploaded")) then
drOrds.Delete
End If
Next
Catch Ex As Exception
st=Ex.ToString
MessageBox ( st )
End Try
How do I itterate and Delete or batch Delete for a set criteria?

Thanks Doug

[Ken Tucker [MVP]]

Hi,

You cant use a for each loop to delete records. Use a for next
loop

Dim drOrds as datarow
Try
For x as integer = dsRecPurchs.Tables("PurchaseRecpts").Rows.count -1 to 0
step -1
drOrds = dsRecPurchs.Tables("PurchaseRecpts").Rows(x)
If cBool(drOrds("Uploaded")) then
drOrds.Delete
End If
Next
Catch Ex As Exception
st=Ex.ToString
MessageBox ( st )
End Try

Ken
---------------------
"Doug Versch" <du**@hotmail.com> wrote in message
news:eG****************@TK2MSFTNGP14.phx.gbl...
Hi,

I am trying to itterate through a datatable and delete selected rows but I
get an error stating that the collection has changed when the row is
deleted.

Try
For Each drOrds In dsRecPurchs.Tables("PurchaseRecpts").Rows
If cBool(drOrds("Uploaded")) then
drOrds.Delete
End If
Next
Catch Ex As Exception
st=Ex.ToString
MessageBox ( st )
End Try
How do I itterate and Delete or batch Delete for a set criteria?

Thanks Doug

[Doug Versch]

Thanks Ken

"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:ev*****************@TK2MSFTNGP11.phx.gbl...

Hi,

You cant use a for each loop to delete records. Use a for next loop

Dim drOrds as datarow
Try
For x as integer = dsRecPurchs.Tables("PurchaseRecpts").Rows.count -1 to 0
step -1
drOrds = dsRecPurchs.Tables("PurchaseRecpts").Rows(x)
If cBool(drOrds("Uploaded")) then
drOrds.Delete
End If
Next
Catch Ex As Exception
st=Ex.ToString
MessageBox ( st )
End Try

Ken
---------------------
"Doug Versch" <du**@hotmail.com> wrote in message
news:eG****************@TK2MSFTNGP14.phx.gbl...
Hi,

I am trying to itterate through a datatable and delete selected rows but I
get an error stating that the collection has changed when the row is
deleted.

Try
For Each drOrds In dsRecPurchs.Tables("PurchaseRecpts").Rows
If cBool(drOrds("Uploaded")) then
drOrds.Delete
End If
Next
Catch Ex As Exception
st=Ex.ToString
MessageBox ( st )
End Try
How do I itterate and Delete or batch Delete for a set criteria?

Thanks Doug