DataTableにて列を挿入

解決

パンダ 2009-01-13 04:43:09 No: 145650

お世話になっております。
パンダといいます。
VB2008、XPsp3

DataTableについて相談です。

◆現在のTable
  x | y
---+---
0.1|0.2
0.2|0.1
    ↓
◆やりたい事
列「No」を追加したい
  x | y | No
---+---+---
0.1|0.2| 0
0.2|0.1| 1
を行いたいのですが、下記のようになってしまいます。

  x | y | No
---+---+---
0.1|0.2|
0.2|0.1|
    |   | 0
    |   | 1
となってしまいます。
色々とネットで調査しているのですが、行き詰っています。
ご教授のほどよろしくお願いします。

◆ソース
'Tableは既にデータが入っています

Dim column As New DataColumn

column = New DataColumn()
column.DataType = System.Type.GetType("System.Int32")
column.ColumnName = "No"
Table.Columns.Add(column)

For i As Long = 0 To Table.Rows.Count - 1
  Dim newRow As DataRow = Table.NewRow()
  newRow("No") = i
  table.Rows.Add(newRow)
Next

YuO 2009-01-13 08:37:43 No: 145651

そりゃ，新しい行を追加しているのですからそうなります。
Addしているのですから。

Table.Rows(i)("No") = i
や
Table.Rows(i)(column) = i
のように，既存のDataRowに代入する必要があります。

パンダ 2009-01-13 17:11:30 No: 145652

YuOさん
ありがとうございます。
代入しなければならないのですね。
列が追加されると思っておりました。

アドバイスありがとうございました。