このVisual Basic.netループを再現して動作させるにはどうすればよいですか？

Question

Visual Basicで記述されたFor Eachループが、反復処理中のテーブルを変更しようとしています。これによりコレクションが変更されました。列挙操作は「例外を実行しない場合があります。これについてfrastratingさ

私は私が使用してのみコピーから削除されたすべてのオブジェクトのコピーを作成しようとしましたが、例外はまだ起こっていることである。

これはForループの代わりにFor Eachループを使用していることが原因であることがわかりましたが、私のコードを書き直して動作させることはできませんでした（私はC＃をよく知っています）。ここをクリック

これは私のコードです。削除したい行を削除するには、どのように書き直すことができますか？どのヘルプとコードも非常に高く評価されますか？

Dim drAcademicRecord, drSchool As DataRow 
For Each drSchool In dsR.Tables("School").Rows 
    If drSchool("OrganizationName") = "NA" Then 
     For Each drAcademicRecord In dsR.Tables("AcademicRecord").Rows 
      If drAcademicRecord("AcademicRecord_Id") = drSchool("AcademicRecord_Id") Then 
       dsR.Tables("AcademicRecord").Rows.Remove(drAcademicRecord) '<-- This is the line causing my exception 
      End If 
     Next 
    End If 
Next 

Answer 1

すでにdrAcademicRecordを持っているので、あなたが直接

drAcademicRecord.Delete 

例えばによってその行を削除することができますので、あなたは、

dsR.Tables("AcademicRecord").Rows.Remove(drAcademicRecord) 

を使用する必要はありません

For Each drSchool As DataRow In dsR.Tables("School").Select("OrganizationName='NA'") 
    For Each drAcademicRecord As DataRow In dsR.Tables("AcademicRecord").Select("AcademicRecord_Id=" & drSchool("AcademicRecord_Id")) 
     drAcademicRecord.Delete 
    Next 
Next 

Answer 2

For i as integer = dsR.Tables("AcademicRecord").Rows.Count - 1 to 0 Step -1 
    If dsR.Tables("AcademicRecord").Rows(i)("AcademicRecord_Id") = drSchool("AcademicRecord_Id") Then 
     dsR.Tables("AcademicRecord").Rows.RemoveAt(i) 
    End If 
Next