DataGridViewへの行追加に関して (ID:148129)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初歩的な内容で申し訳ありませんが、教えて下さい。

DataGridViewにバインドしてデータを挿入するような事をしていますが、その際に
必ず最終行に追加したいと考えています。

しかし、どうも動きがおかしく、かならず最終行に挿入されないケースがあります。

よくよく調べたところ、１行目に追加した場合は問題ありませんが、２行目に追加する
場合、１行目をクリックしてから追加すると、なぜかカレント行に空白行が追加され、
その１行下にデータが挿入されます。

必ず最終行に追加する為には、どのように記述すれば良いでしょうか？

《現在の記述内容》

'DataGridViewのセルダブルクリック時処理
    Private Sub GRD_V_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GRD_V.CellDoubleClick

Dim C_Row As String
        Dim C_Col As String
        Dim C_Val As String

C_Row = GRD_V.CurrentCell.RowIndex
        C_Col = GRD_V.CurrentCell.ColumnIndex
        C_Val = GRD_V.CurrentCell.Value.ToString()

'２列目に入力があった場合のみ処理を行う
        If C_Col = 1 Then

'変数宣言
            Dim KIN_品目番号 As String
            Dim KIN_品目名称 As String
            Dim PIN_品目番号 As String
    
        'Oracle接続
            Dim Connection As New OracleConnection
            Dim Command As OracleCommand
            Dim DataReader As OracleDataReader

'変数初期化
            KIN_品目番号 = ""
            KIN_品目名称 = ""

Dim frm_品目マスタ As New 品目マスタ検索
            frm_品目マスタ.ShowDialog()

PIN_品目番号 = frm_品目マスタ.Kekka '結果プロパティから

Dim DIN_品目番号 As String
            DIN_品目番号 = GRD_V.CurrentCell.Value.ToString()

If DIN_品目番号 <> "" Then

Return
                Exit Sub

End If
            frm_品目マスタ.Dispose()
            frm_品目マスタ = Nothing

'Oracleへのコネクションの確立
            Connection.ConnectionString = "User Id=XXXXXX; Password=999999; Data Source=XE"

'オープン  
            Connection.Open()
            'コマンド作成  
            Command = Connection.CreateCommand

If PIN_品目番号 <> "" Then

'SQL作成  
                Command.CommandText = "SELECT * FROM T_品目マスタ WHERE 品目番号 = '" + PIN_品目番号 + "'"

'データリーダーにデータ取得  
                DataReader = Command.ExecuteReader
                'データを全件出力  
                Do Until Not DataReader.Read

If IsDBNull(DataReader.Item("品目番号")) Then
                        KIN_品目番号 = ""
                    Else
                        KIN_品目番号 = DataReader.Item("品目番号").ToString
                    End If

If IsDBNull(DataReader.Item("品目名称")) Then
                        KIN_品目名称 = ""
                    Else
                        KIN_品目名称 = DataReader.Item("品目名称").ToString
                    End If

Loop

DataReader.Close()

Dim data_row As DataRow = dtTable.NewRow()

data_row("品目番号") = KIN_品目番号
                data_row("品目名称") = KIN_品目名称

dtTable.Rows.Add(data_row)

End If

'DataGridViewの最終行を非表示にする
            GRD_V.AllowUserToAddRows = False

End If

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る