表示順に関して (ID:147449)

名前

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

本文 教えて下さい。 以下のように、フォーム上に"DataGridView"を貼り付け、ダブルクリックしたら別フォームを起動し、 そこで選択されたデータを再度テーブルに検索しに行き、該当のデータを表示させるような仕組みを 考えています。 ※ 別フォームで選択された発注番号は、PIN_発注番号 という項目に格納されます。 そこで、１件目の取得はうまく表示されるものの、２件目はどうしても１行目にデータが表示され、 ２行目は空白の１行目と３行目に表示されるようになってしまいます。 なんとか２件目以降に選択されたものに関しては、前回の行の後ろへ表示させるような事を考えて いますが、何か良い手はないでしょうか。。。。 教えて下さい。 よろしくお願いします。 《記述内容》 'DataGridViewのセルダブルクリック時処理 Private Sub G_仕入入力_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles G_仕入入力.CellDoubleClick Dim frm_発注データ As New 発注データ検索 frm_発注データ.ShowDialog() Dim PIN_発注番号 As String Dim KIN_発注日付 As String Dim KIN_発注先コード As String KIN_発注日付 = "" KIN_発注先コード = "" Dim Connection As New MySqlConnection Dim Command As MySqlCommand Dim DataReader As MySqlDataReader PIN_発注番号 = frm_発注データ.P_発注番号 '結果プロパティから frm_発注データ.Dispose() frm_発注データ = Nothing If PIN_発注番号 <> "" Then '接続文字列を設定 Connection.ConnectionString = "server=localhost;database=DB_KIKAN;user id=root;password=000000" 'オープン Connection.Open() 'コマンド作成 Command = Connection.CreateCommand '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 Dim data_row As DataRow = dtTable.NewRow() data_row("発注番号") = PIN_発注番号 data_row("発注日付") = KIN_発注日付 dtTable.Rows.Add(data_row) 'DataGridViewにデータを表示する G_仕入入力.DataSource = dtSet.Tables(0) 'DataGridViewの最終行を非表示にする G_仕入入力.AllowUserToAddRows = False End If End Sub