DataTableで行のコピーを行った際の疑問点

Question

###質問内容
DataTableで行のコピーを行った際に気になることがありました。

サンプルのソースコードでは次の処理をしています。
・元となるDataTableのデータ分For文を回す
・ループ中の処理で、Flg列が"1"の場合、行をコピー
・コピーした行を、元となるDataTableの末尾に追加

• 質問１
  行をコピーし元となるDataTableに追加していくので、
  ループの上限に使用しているDataTable.Rows.Countは増えていきます。（デバッグで増えることを確認しました）
  しかし、ループは元々入っているデータ分（3行）しかループしません。
  想定では無限ループになると考えています。
  なぜ、元々のデータ分しかループしないのでしょうか。

おそらく、DataTableの内部では一時テーブルを作成し、そちらを利用していると考えているのですが確証がありません。
ご存知の方がいらっしゃればお教えください。

###サンプルのソースコード

    Public Class Sample
        Private Sub sampleDataTable()
            Dim dt As New DataTable
            dt.Columns.Add("Key", GetType(String))
            dt.Columns.Add("Flg", GetType(String))
            dt.Rows.Add("1", "0")
            dt.Rows.Add("2", "1")
            dt.Rows.Add("3", "0")

            For i As Integer = 0 To dt.Rows.Count
                ' フラグが"1"の場合行をコピー
                If dt(i)("Flg") = "1" Then
                    dt.ImportRow(dt.Rows(i))
                End If
            Next

        End Sub
    End Class

Answer 1

下記コードを実行してみてください。

    Private Sub TEST()
        Dim max As Integer = 10

        For i = 0 To max
            max = 20
            Trace.WriteLine(i)
        Next
    End Sub

実行してみれば分かると思いますが、最初に
For i = 0 To max
の行を実行された時のmaxの値でFor文の上限が設定されます。
ですので、ループ内でmaxの値を変更してもループの回数は変わりません。
DataTableの仕様ではなく、For文の仕様です。

また

    For Each r As DataRow In dt.Rows
        ' フラグが"1"の場合行をコピー
        If r("Flg") = "1" Then
            dt.ImportRow(r)
        End If
    Next

と書いたとしてもSystem.InvalidOperationExceptionが発生します。
DataTableの行を列挙するようなループ内で、そのDataTableの行数を変更する
というのはやってはいけません。

Comments

[M-Kajiwara]

なるほど、DataTableでなくFor文の仕様だったのですね、初めて知りました。
DataTableの仕様だろうと思い込んでいたので、広い視野で考えなければいけないと、痛感しました。

無限ループでなく、System.InvalidOperationExceptionのエラーが発生するのですね。。。

迅速な回答助かりました。ありがとうございます。