全ては時の中に…

Public Class Form1

  '表示するデータの設定

  Private Sub Form1_Load( _

    ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles MyBase.Load



    Dim dt As New DataTable

    dt.Columns.Add("ID", GetType(Long))

    dt.Columns.Add("Name", GetType(String))

    dt.Rows.Add(1, "サンプル一郎")

    dt.Rows.Add(2, "サンプル二郎")

    dt.Rows.Add(3, "サンプル三郎")

    IDText.DataBindings.Add("Text", dt, "ID")

    NameText.DataBindings.Add("Text", dt, "Name")



    DataRepeater1.DataSource = dt

    '新規行を1行作成する

    DataRepeater1.AddNew()

  End Sub



  '表示しているレコードを取得する

  Private Sub Button1_Click( _

    ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click



    Dim strMessage As New System.Text.StringBuilder

    '表示している全レコードの内容を表示

    For idx As Long = 0 To DataRepeater1.ItemCount - 1

      DataRepeater1.CurrentItemIndex = idx

      'レコード毎にコントロール名から処理を判断

      For Each Item As Control In DataRepeater1.CurrentItem.Controls

        If "IDText".Equals(Item.Name) Then

          strMessage.Append("ID   = " + Item.Text + System.Environment.NewLine)

        ElseIf "NameText".Equals(Item.Name) Then

          strMessage.Append("Name = " + Item.Text + System.Environment.NewLine)

        End If

      Next

    Next

    MessageBox.Show(strMessage.ToString(), "レコード内容")

  End Sub

End Class