こんにちは。

>で出来ましたが、
その場合は実際のプログラムも一緒に投稿してください。
ご存じと思いますが同じことをやるのにもいろいろな方法があり、大池さんがどのような方法をとっているのかいまいちわかりません。

推測でお答えします。
たとえば、次のようにするとFor文で行の値をセットできます。

  

Dim dt As New DataTable

dt.Columns.Add("Column1", GetType(Integer))

dt.Columns.Add("Column2", GetType(Integer))

dt.Columns.Add("Column3", GetType(Integer))

dt.Columns.Add("Column4", GetType(Integer))

dt.Columns.Add("Column5", GetType(Integer))



Dim row As DataRow = dt.NewRow

For Each col In dt.Columns

    Dim i As Integer

    i += 1

    row(col) = i

Next



dt.Rows.Add(row)