DataGridViewに関して (ID:148117)

名前

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

本文 教えて下さい。 以下のように記述し、GRD_入力（DataGridView）で２列目の項目がダブルクリックされた場合、別画面から番号を 取得し、それを最終行に追加するというような事を行っています。 その際に、次々に追加する場合は問題なく最終行に追加されますが、例えば３行目の入力する際に、１行目 をクリックした後に３行目をダブルクリックし、その後同じ事をすると３行目が空白となり、４行目にデータが表示 されてしまいます。 純粋にどのような形であっても最終行にデータを表示させる場合はどのような記述をすれば良いでしょうか？ 教えて頂ければ幸いです。 よろしくお願いします。 Private Sub GRD_入力_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GRD_入力.CellDoubleClick Dim C_Row As String Dim C_Col As String Dim C_Val As String C_Row = GRD_入力.CurrentCell.RowIndex C_Col = GRD_入力.CurrentCell.ColumnIndex C_Val = GRD_入力.CurrentCell.Value.ToString() '２列目に入力があった場合のみ処理を行う If C_Col = 1 Then Dim frm_品目マスタ As New 品目マスタ検索 frm_品目マスタ.ShowDialog() Dim PIN_番号 As String Dim Connection As New OracleConnection Dim Command As OracleCommand Dim DataReader As OracleDataReader PIN_番号 = frm_品目マスタ.Kekka '結果プロパティから Dim DIN_番号 As String DIN_番号 = GRD_入力.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() lngRet = dtTable.Rows.Count() data_row("番号") = KIN_番号 data_row("名称") = KIN_名称 dtTable.Rows.Add(data_row) End If 'DataGridViewの最終行を非表示にする GRD_入力.AllowUserToAddRows = False End If End Sub