表示順に関して (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

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

戻る