DataTableのデータ設定について への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 大池  (社会人) 投稿日時 2010/6/6 20:58:01
るきお様

早速のご指導ありがとうございます。
お手数をおかけして申し訳ありません。

                Dim dd As New ArrayList
                dd.Add("月日")
                dd.Add("-")
                For i As Integer = 1 To 5
                    dd.Add(i.ToString)
                Next
このddをｄｔにセットしようとしていました。
ご指導のとおり次のようにしてセットすることができました。
                Dim row As DataRow = dt.NewRow
                Dim j As Integer = 0
                For Each col In dt.Columns
                    row(col) = dd.Item(j)
                    j += 1
                Next
                dt.Rows.Add(row)
ありがとうございました。
今後ともよろしくお願いいたします。

0
投稿者 るきお  (社会人) 投稿日時 2010/6/6 17:27:31
こんにちは。

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

推測でお答えします。
たとえば、次のようにすると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)
0
投稿者 大池  (社会人) 投稿日時 2010/6/6 16:25:49
いつもお世話になりまして感謝しています。
XPでVB２００８を勉強しています。

Dim dt As New DataTable
においいてデータを設定する場合に
dt.Rows.Add(1,2,3,4,5)
で出来ましたが、これをFor文を使って出来ないものでしょうか？
また、配列に入っているデータを設定する場合にはどのようにするのでしょうか？

ご指導のほどよろしくお願いいたします。
0