Dim tbl As New DataTable



        With tbl.Columns

            .Add("Col1", GetType(Integer))

            .Add("Col2")

        End With



        For i = 0 To 10

            tbl.Rows.Add(i, i.ToString)

        Next

        Dim rows1 = tbl.Select("", "", DataViewRowState.ModifiedCurrent Or DataViewRowState.Added)

        tbl.AcceptChanges()



        For i = 0 To 10 Step 2

            tbl.Rows(i)("Col2") = (i * 3).ToString

        Next

        Dim rows2 = tbl.Select("", "", DataViewRowState.ModifiedCurrent Or DataViewRowState.Added)

        tbl.AcceptChanges()



        Console.WriteLine("rows1:")

        For Each row In rows1

            Console.WriteLine("{0} {1}", row("Col1"), row("Col2"))

        Next



        Console.WriteLine("rows2:")

        For Each row In rows2

            Console.WriteLine("{0} {1}", row("Col1"), row("Col2"))

        Next