[VB.NET]DataGridViewでセルをダブルクリックして起こるイベントをDataGridView外のボタンクリックイベントに変更したい。

Question

前提・実現したいこと

VisualBasicのDataGridViewのセルをダブルクリックするとDBにデータを登録するようにしているのですが、DataGridView外に配置しているボタンクリック時に同様のイベントを発生させたいです。

発生している問題・エラーメッセージ

同じコードをボタンクリックにペーストすると
System.InvalidCastException: '型 'System.Windows.Forms.Button' のオブジェクトを型 'System.Windows.Forms.DataGridView' にキャストできません。'

該当のソースコード

セルダブルクリックのイベントです。こちらのコードをボタンクリックイベントにペーストすると上記のエラーが出ます。
Dim dgv As DataGridView = DirectCast(sender, DataGridView)
        Dim ODNOKBNN As String = CM0000.login_Pass
        Dim ODNO As String = ""
        Dim SGB As String = ""
        Dim Syagai As String = ""
        Dim MoveTime As String = ""
        Dim SagyoPlace As String = ""
        Dim StartTime As String = ""
        Dim StopTime As String = ""
        Dim BreakTime As String = ""
        Dim Biko As String = ""
        Dim Day As String = DateLabel.Text

        If DataGridView1.Rows.Count = 0 Then
            MessageBox.Show(msgE012, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
            DataGridView1.Focus()
        Else
            For Each c As DataGridViewCell In DataGridView1.SelectedCells
                ODNO = DataGridView1(0, c.RowIndex).Value
                SGB = DataGridView1(2, c.RowIndex).Value
                Syagai = DataGridView1(3, c.RowIndex).Value
                MoveTime = DataGridView1(4, c.RowIndex).Value
                SagyoPlace = DataGridView1(5, c.RowIndex).Value
                StartTime = DataGridView1(6, c.RowIndex).Value
                StopTime = DataGridView1(8, c.RowIndex).Value
                BreakTime = DataGridView1(9, c.RowIndex).Value
                Biko = DataGridView1(10, c.RowIndex).Value
            Next
            Dim T As TimeSpan = ToTimeSpan(StopTime) - ToTimeSpan(StartTime) - ToTimeSpan(MoveTime) - ToTimeSpan(BreakTime)
            Dim SagyoTime As Double = T.TotalMinutes
            Dim h As Double = SagyoTime \ 60
            Dim m As Double = SagyoTime Mod 60
            Dim hhmm As String = h.ToString() & ":" & m.ToString()
            Dim result1 As String = EditTime(hhmm)



            Dim query As String = "Insert into Test3 values (@ODNOKBNN,@ODNO,@SGB,@Syagai,@MoveTime,@SagyoPlace,@StartTime,@StopTime,@BreakTime,@SagyoTime,@Biko,@Day)"
            Using con As SqlConnection = New SqlConnection("")


                Using cmd As SqlCommand = New SqlCommand(query, con)
                    cmd.Parameters.AddWithValue("@ODNOKBNN", ODNOKBNN)

                    cmd.Parameters.AddWithValue("@ODNO", ODNO)
                    cmd.Parameters.AddWithValue("@SGB", SGB)

                    If Syagai = Nothing Then
                        cmd.Parameters.AddWithValue("@Syagai", "社内")
                    Else
                        cmd.Parameters.AddWithValue("@Syagai", Syagai)
                    End If

                    cmd.Parameters.AddWithValue("@MoveTime", MoveTime)

                    If SagyoPlace = Nothing Then
                        cmd.Parameters.AddWithValue("@SagyoPlace", "")
                    Else
                        cmd.Parameters.AddWithValue("@SagyoPlace", SagyoPlace)
                    End If
                    cmd.Parameters.AddWithValue("@StartTime", StartTime)
                    cmd.Parameters.AddWithValue("@StopTime", StopTime)

                    cmd.Parameters.AddWithValue("@BreakTime", BreakTime)

                    cmd.Parameters.AddWithValue("@SagyoTime", result1)
                    If Biko = Nothing Then
                        cmd.Parameters.AddWithValue("@Biko", "")
                    Else
                        cmd.Parameters.AddWithValue("@Biko", Biko)
                    End If
                    cmd.Parameters.AddWithValue("@Day", Day)


                    con.Open()
                    cmd.ExecuteNonQuery()
                    con.Close()
                End Using
            End Using


            MessageBox.Show("登録完了", Me.Text)
        End If

    End Sub

補足情報（FW/ツールのバージョンなど）

Visual Studio2017,SQL Server

Answer 1

ソース全体を細かく見たわけではないのですが、発生しているエラーは

Dim dgv As DataGridView = DirectCast(sender, DataGridView)

この処理の部分です。ボタンのクリックイベントハンドラにこの記述があるとエラーになります。

senderはざっくり言うとイベントを発生させたオブジェクトです。
元のコードではDataGridViewのダブルクリックなので、キャストするとちゃんとDataGridViewとして認識できますが、ボタンクリックのイベントでこのコードを実行しようとすると、sender(ボタン)をDataGridViewにキャストしようとしていることになりますので、エラーになってしまいます。

なので、ボタンクリックのイベントハンドラ内では、この部分を対象のDataGridViewになるように修正すればまずはエラーが消えると思います。

Dim dgv As DataGridView = Me.DataGridView ' 対象のDataGridView名で読み替えてください

Comments

[退会済みユーザー]

回答ありがとうございます。
試した結果、ボタンクリックにイベントを実装することが出来ました！
ありがとうございます！

Answer 2

今のやり方を大幅に変えることになるので回答とは言い難いですが・・・

できれば一度 Visual Studio のウィザードを使って定番の構成のアプリを作ってみてはいかがでしょう？

DB が SQL Server の場合ですが、以下のチュートリアル、

チュートリアル : データベースへのデータの保存 (単一テーブル)
https://docs.microsoft.com/ja-jp/previous-versions/0f92s97z(v=vs.120)

10 行でズバリ !! 非接続型のデータ アクセス
https://github.com/microsoftarchive/msdn-code-gallery-community-0-9-non-alphabetic/tree/master/10%20%E8%A1%8C%E3%81%A7%E3%82%BA%E3%83%90%E3%83%AA%20!!%20%E9%9D%9E%E6%8E%A5%E7%B6%9A%E5%9E%8B%E3%81%AE%E3%83%87%E3%83%BC%E3%82%BF%20%E3%82%A2%E3%82%AF%E3%82%BB%E3%82%B9%20%28ADO.NET%29%20%28VB%29

・・・のように Visual Studio のデータソース構成ウィザードを利用して型付 DataSet + TableAdapter を作って、それを利用してアプリを作ると、以下のページの図のような構造のアプリが、ほとんど自分でコードを書くこと無しに作れます。

Windows フォーム アプリケーションでのデータへの接続
https://docs.microsoft.com/ja-jp/previous-versions/wxt2cwcc(v=vs.120)

上に紹介した後者のチュートリアルは 2 つのテーブルを階層更新するために少々複雑になっていますが、単一テーブルですと前者のチュートリアルのように非常に簡単で、操作に慣れると以下のようなアプリが 5 分もかからず作れるはずです。

新規レコードの登録は、上の画像で ＋ ボタンをクリックすると空の新しい行が表示されるのでそれに入力し、フロッピーディスクのアイコンをクリックすれば SQL Server のテーブルに結果が反映されます。削除、変更ももちろん可能です。

自力で一からコードを書く場合のような種々の問題に悩むことはなくなり、開発工数は激減するはずです。保守工数も減るはずです。お試しください。

Comments

[退会済みユーザー]

ありがとうございます！
このようなチュートリアルがあると非常に助かります！

これから作ってみようと思います！

Answer 3

そのDataGridViewのイベントルーチンで、そのボタンをクリックするなり、クリックイベントを実行するなりすればいいです

コピペで済ませようとせず、自分でコード書きましょう。

Comments

[退会済みユーザー]

回答ありがとうございます。
楽をせず、きちんとコードで実装したいと思います。

大変申し訳ございません。
イベントルーチンの方法があまりわかっておらず、教えていただけると幸いです。

[y_waiwai]

まずはそのボタンをクリックしたら、DBにデータを登録するようにしましょう。
それができないとおはなしになりません

[退会済みユーザー]

DBに登録するよう実装しました！

[y_waiwai]

なら、ダブルクリックイベントで、ボタン.OnClickメソッドを実行させてやればいいです