DataTableにて列を挿入

解決


パンダ  2009-01-12 19:43:09  No: 145650  IP: 192.*.*.*

お世話になっております。
パンダといいます。
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-12 23:37:43  No: 145651  IP: 192.*.*.*

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

Table.Rows(i)("No") = i

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

編集 削除
パンダ  2009-01-13 08:11:30  No: 145652  IP: 192.*.*.*

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

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

編集 削除