以下に記述したコードは、ループの反復を適切に実行します。条件に対して正しい行をテストし、「セカンダリ」DataTable に追加し、想定どおりに「マスター」から削除します。ただし、ループの 2 回目の繰り返しで、次のエラーが発生します。
Collection was modified; enumeration operation might not execute.
これが私が使用しているコードです
For Each row As DataRow In tblAgencyEdInfo.Rows
Dim rDate As DateTime = row.Item("ExpirationDate")
If rDate < DateTime.Now Then
tblExpEdInfo.ImportRow(row)
tblAgencyEdInfo.Rows.Remove(row)
End If
Next row