DataGridViewの値を別フォームに

質問

こんにちは。
1つ教えて頂けないでしょうか。

Form1にDataGridViewがあり、どれか１行ダブルクリックすると
Form2にForm1のDataGridViewの７列目の値の条件で抽出した結果を
Form2のDataGridViewに表示したいのです。

Form1からの受け渡しデータはForm2のテキストボックス（条件)に表示させ
受け渡されて来たときは表示ボタンをクリックしなくてもForm2の
DataGridViewは表示したいのです。

それぞれのFormは作成し、Form1は

Private Sub dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellDoubleClick
Dim f As New Form2
f.txt条件 = Me.DataGridView.SelectedRows(0).Cells(7).Value
f.ShowDialog()
End Sub

とコーディングしました。

Form2は表示されるのですが、データの受け渡しができていないし
f.txt条件 = Me.DataGridView.SelectedRows(0).Cells(7).Valueの部分でキャストできませんのエラーに
なります。

DataGridViewの選択した値を別のフォームに渡し、そのまま別フォームのDataGridViewを表示させたいのですが。

わかる方おられましたら、教えて頂けないでしょうか。
大変申し訳ありませんが、どうぞよろしくお願いします。

回答No.1

chie65536（@chie65535） · ベストアンサー

＞f.txt条件 = Me.DataGridView.SelectedRows(0).Cells(7).Valueの部分で
＞キャストできませんのエラーになります。

当然です。「f.txt条件」は「テキストボックスを示すオブジェクトそのもの」で、オブジェクトには、オブジェクトしか代入できません。

「f.txt条件」テキストボックスに、値をセットする場合は、テキストボックスの「Textプロパティ」に値を代入します。

f.txt条件.Text = Me.DataGridView.SelectedRows(0).Cells(7).Value

お礼

回答ありがとうございます。

おかげさまでエラーはなくなりました。
あとは、受け渡しの時は、Form2でクリックをしなくても表示したいのです。
改めてよろしくお願いします。

補足

すいません、Form2でコントロールします。

回答No.2

chie65536（@chie65535）

追記。

ShowDialog()したフォームは、閉じられても、リソースが開放されません。

Private Sub dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellDoubleClick
Dim f As New Form2
f.txt条件.Text = Me.DataGridView.SelectedRows(0).Cells(7).Value
f.ShowDialog()
f.Dispose() ’リソースを明示的に開放する
End Sub

のように、Disposeを呼び出して、明示的にリソースを開放しなければなりません。

なお、以下のように「ShowしてCloseした場合」には、Disposeは不要です。

Private Sub dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellDoubleClick
Dim f As New Form2
f.txt条件.Text = Me.DataGridView.SelectedRows(0).Cells(7).Value
f.Show()
f.Close() ’Closeで自動的にリソースが開放され、破棄される
End Sub

なお、VB2005以降ではUsingステートメントで、明示的なリソース開放をせず、暗黙的にリソース開放できるようになりました。

Private Sub dgv_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellDoubleClick
Using f As New Form2 'Dimの代わりにUsingを使用する
　f.txt条件.Text = Me.DataGridView.SelectedRows(0).Cells(7).Value
　f.ShowDialog()
End Using ’リソースが暗黙的に開放される
End Sub

お礼

ご指摘ありがとうございます。
早速追加しました。