【VB.NET】DataGridViewのデータをDataTableに格納する方法について

Question

###前提・実現したいこと
現在VB.NETでマスタ画面の作成をしています。
将来的には、DBから値を取得し、DataGridViewに値を表示する予定なのですが、
現状は、モックアップを作成している段階です。
そこで、DataGridViewに「DataGridView1.Rows.Add("ああ","いい")」のように固定でデータを表示させているのですが、そのデータをDataTableにバインドして別ダイアログに渡すという処理をしたいのですが、固定値で与えられているDataGridViewのデータをDataTableにバインドするやり方がわからずに困っています。
どのようにすれば、DataGridViewのデータをDataTableに渡すことができるのでしょうか。
DataGridViewに表示されているデータをすべてDataTableに格納したいです。

###補足情報(言語/FW/ツール等のバージョンなど)
VB.NET VisualStudio2013 Windows7 64bit

Answer 1

データテーブルをDataGridViewにバインドするなら以下のコードになります。
DataGridView1.DataSource = DataTable1

バインドしてから入力すればDataTableに内容が反映されます。
ただし、列はあらかじめデータテーブルに追加しておく必要があります。

Comments

[programer]

回答ありがとうございます。
質問の下記方が悪かったのですが、「DataGridView1.Rows.Add(”ああ”,”いい”)」のような形でグリッドに固定値をはめ込んでいます。
そのグリッドにに表示されている値をすべてDataTableに格納したいのですが、どのようにすればよいのでしょうか。

[dmon]

DataGridViewにデータテーブルをバインドさせるとプログラムでDataGridViewに行を追加することは出来ないので、この場合はデータテーブル側に行を追加するようにするしかありません。

単純に値をDataTableに格納したいだけなら、以下のようにすれば可能かと思います。
For Each column As DataGridViewColumn in DataGridView1.Columns
dataTable1.Columns.Add(CStr(column.HeaderCell.Value))
Next

For rowIndex As Integer = 0 To DataGridView1.Rows.Count - 1
Dim values(DataGridView1.Columns.Count - 1)
For columnIndex As Integer = 0 To DataGridView1.Columns.Count - 1
values(columnIndex) = DataGridView1.Rows(rowIndex).Cells(columnIndex).Value
Next
dataTable1.Rows.Add(values)
Next

[programer]

何度も申し訳ありません。
教えていただいたコードを試してみましたが、DataTableにAddするところ(Column.valueと実際グリッドの中身ののデータのところ)で、落ちてしまうのですがなぜでしょうか。
DataTableは、「Dim DataTable1 As DataTable = Nothing」
のように宣言してあります。
エラーが出るのではなく、そこで処理が終了してしまいます。

[dmon]

Dim DataTable1 As DataTable = Nothing を
Dim DataTable1 As New DataTable にしてみてください。

[programer]

出来ました！
お忙しい中申し訳ありませんでした。
本当にありがとうございました。

疑問なのですが、なぜ「Dim DataTable1 As DataTable = Nothing」
ではダメだったのですか？

[dmon]

オブジェクト指向の基本的な概念なので、なかなか説明が難しいのですが、一応私なりの説明を記載します。（オブジェクト　参照　インスタンスとかで調べたほうがいいかも知れません）

Dim DataTable1 As DataTable ←これは変数（オブジェクト）の宣言です。
要はDataTableという型の箱というか入れ物を用意しますよという意味になります。
ただの箱なので中身（実体とかインスタンスといいます）がなく、これに対して何かしようとしても中身がないので何もできませんよとエラーになります。

New DataTableはデータテーブルという型の中身（インスタンス）を作成しなさいという命令になります。

Dim DataTable1 As New DataTable は
Dim DataTable1 As DataTable
DataTable1 = New DataTable
とまったく同じでDataTable型の箱（オブジェクト）を用意してそこにDataTable型の中身（インスタンス）を作成して格納するという意味になります。
（ほんとは格納ではなくオブジェクトがインスタンスを参照するという意味になるのですが、イメージとして箱に中身が入るで問題ないはずです）

箱に中身が入ることで初めて箱を通して値を格納したり、行を増やしたりといった操作が出来るようになるわけです。

ちなみにInteger型等はプリミティブ型といって上記にはあてはまらないのですが、宣言したタイミングで自動的にインスタンスが作成されている（New が要らない）ものと認識してもらえば良いです。（厳密には少し違うのですがその間隔で問題ないと思います）

長くなりましたが、参考になれば幸いです。

[programer]

お忙しいところ大変申し訳ありません。
とても参考になりました。
ありがとうございました。