Comboの内容をDataGridViewに表示したい

質問

今回もお世話になります。よろしくお願いします。
VB2005とAccess2003でwindowsアプリを開発しています。
どうしてもつまってしまって先に進まないので教えていただけたら、と思い、投稿しました。
ボタンを押したら、ComboBoxに表示しているSelectedValueの値を、DataGridViewのカレント行の3列目のセルに表示させたいと思っています。
色々やってみたのですが、「オブジェクト参照がオブジェクト インスタンスに設定されていません。」のエラー表示が出てしまい、Nothingになっている箇所もわかっており、試行錯誤したのですが、どのように修正したら良いのかわからず、書かせていただきました。
コードは下記のとおりです。
Dim dg As New System.Windows.Forms.DataGridViewRow
dg = TestDataGridView.CurrentRow →「Nothing」です。
Dim i As String
i = CStr(Me.ComboBox1.SelectedValue)
dg.Cells(2).Value = i　←エラー表示はここで出ます。

ヘルプを見てNewの後がおかしいということはわかったので色々書いたのですがだめでした。Newの後に何を書けばよいかお教えください。
参考書のカレント行の指定したセルに値を入力する、というところを見てやったのですが、何か他に方法があればご教示ください。
どうぞよろしくお願いします。

回答No.2

perse · ベストアンサー

原因はわからないのですが、私は以下のコードで問題なく動作します。

新規のプロジェクトでフォームに
DataGridViewとButtonを配置して以下のコードを記述。

'-----------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'列の追加
For c As Integer = 0 To 5
Me.DataGridView1.Columns.Add("cell" & c.ToString(), "列" & c.ToString())
Next c
'行の追加
For r As Integer = 0 To 10
Me.DataGridView1.Rows.Add()
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dg As System.Windows.Forms.DataGridViewRow
dg = DataGridView1.CurrentRow
dg.Cells(2).Value = dg.Index.ToString() & "行目"
End Sub
'-----------------------------------------------------

このコードでも一段上に表示されるのでしょうか？
カレント行は色が変わっているセルのある行です。

あと今回のこととは関係ないのですが、
>メッセージボックスにカレントの列＆行を表示させたところ
わかっているかもしれませんがデバッグ中であればdebug.printを使ったほうが良いですよ。
Debug.Print("Hello")
と記述すれば、イミディエイトウインドウ(Ctrl+G)にHelloと表示されます。

メッセージボックスだとそっちにフォーカスが移ってしますので
予期せぬトラブルを招いてしまうこともありますし。

お礼

こんにちは、回答ありがとうございました。検証までしてくださって、ありがとうございます。
新しいフォームに教えていただいたコードを書いたら問題なく動作しました。色が変わっているセルがカレントになっていました。
自分のDataGridViewがうまく動作しなかったのは私が書いたほかのコードが何か悪さをしてたのかもしれません。
これで挑戦してみます。
debug.printのことですが、知りませんでした…。教えてくださってありがとうございます！調べたら、Write Lineとか色々あるんですね。
活用したいと思います。
この度は親切に回答を下さってありがとうございました！

回答No.1

perse

TestDataGridView.CurrentRowの値がNothingだからです。
選択されているセルが無いのではないでしょうか？

どこかで
TestDataGridView.CurrentCell = Nothing
とかやっていませんか？

お礼

回答ありがとうございました。
選択されているセルが無いのでは？ということで、調べてみました。
TestDataGridView.CurrentCell = Nothing という処理は行っていませんでした。
メッセージボックスにカレントの列＆行を表示させたところ、カーソルのある行の一段上の行が、カレントになっていました。なので一番最初に入力しようとしたらエラーになっていたみたいです。２行目にカーソルを移動して同じ処理をすると、一行目にComboのSelectedValueが入りました。
カーソルのある行がカレント行では？と思っていたのですが違うのでしょうか？
カーソルのある行を選択状態にするにはどのような処理になるのでしょうか？

補足

検証を続けたところ、ComboのSelectValueを入力するために、DataGridViewの外に配置してあるボタンを押していたので、フォーカスがはずれて選択していた行がカレントではなくなっていたようです。
ボタンを押したときに、新規で行を挿入したらきちんと表示できるようになりました。
最初に書いたコードの上に、
TestBindingSource.AddNew() を追加しました。
フォーカスがはずれても編集中である、という操作があればいいのですが、よくわかりませんでした。
アドバイスがありましたら引き続きお願いいたします。