大変苦しい説明ですが、これで精一杯です。

質問

こんにちわ。
VBとACCESSを使って伝票を作っています。

*利用環境は"Windows Me","Visual Basic 6.0 Pro","ACCESS 2000" です。
*注文詳細伝票テーブル（伝票番号、｛行番号、商品コード、数量｝）があります。
　　｛｝内はGridの中です。
　　そして、商品コードを入力すると、商品名が出てきて、数量を入力すると、
　 商品の｛単価*数量｝の計算がなされた金額が表示されるようになっています。
　　 （こちらの環境は他のプロジェクトで制作し、既に完成しました。）
*伝票番号１に対し、行番号が多あり、その伝票番号の行番号に入力した値の商品コードと数量が出力されます。
*これまでに入力（insert)のみを設定しましたが、入力した通りに出力されず、行番号昇順で順々に一行ずつ出力されます。
ex)(10001[伝票番号],1[行番号],3[商品コード],6[数量])(10001,2,5,7)(10001,3,9,2)
*私の予測では、
Grid1.rows , Grid1.row , Grid1.rowsel のいずれかをFor文 で反復していけば、一つの伝票番号につき入力した行数分が一回で出力されるのでは…と予測しているのですが…色々やってみたのですが、どれも駄目でした。
いっそ、失敗プログラムごとこのコーナーに貼り付けてしまおうと思ったのですが、字数オーバーの為、断念致しました。

*苦しい説明で恐縮ですが、一つの伝票番号[10001]分丸ごと一遍に、行番号[1,2,3,…]と出力させるには、どのようなプログラムを行えばいいのか、どなたか教えてください。お願いします。

回答No.2

bin-chan · ベストアンサー

すみません。ご質問内容を読み間違えてました。

ご質問の中に以下の２点が「問題点」として記述されていると思います。

> 入力した通りに出力されず、行番号昇順で順々に一行ずつ出力されます。

> 一つの伝票番号[10001]分丸ごと一遍に、行番号[1,2,3,…]と出力させるには

しかし上記の記述は矛盾しているようですね。

通常、このようなご質問の場合は以下のようなものと思います。
「Insertした順に表示されてしまう。行番号の昇順にするにはどうすれば良いか？」
それで「order by が必要」としたのですが、
Insert順に表示したいのであれば、「order by」を記述しないでください。

「クエリを記述して」としたのはACCESS側のクエリで作成しておいて
VB6のGridコントロールのDataSourceへ記述すれば済むように思ったからです。

select 行番号,商品コード,数量 from 注文詳細伝票テーブル where 伝票番号="10001";
（行番号順なら where 伝票番号="10001" order by 行番号; です）

あらかじめACCESS側でクエリを作成し、結果確認できたものを指定すれば
苦労しなくて済むと思います。

補足

>通常、このようなご質問の場合は以下のようなものと思います。
>「Insertした順に表示されてしまう。行番号の昇順にするにはどうすれば良いか？」

…質問の仕方がまずかったようで…
insertした時点では、一行ずつ保存しているカタチになっています。
が、出力する場合は３行文の入力を一遍に出力したいのです。
一応、伝票を作っているので…。
ACCESSでクエリを作成してから、コピーすれば手っ取り早い事は、私も知ってはいるのですが、
"（プログラム上では）一行ずつ保存した同じ伝票番号を、一気に出力"したいのです。

>「クエリを記述して」としたのはACCESS側のクエリで作成しておいて
>VB6のGridコントロールのDataSourceへ記述すれば済むように思ったからです。

私はVB初心者故、こちらの意味がよくわかりません。
自分が初心者故に、"わからんわからん"を連呼し、bin-chanさん他色々な方に甘えてしまっていて、情けなく思っている今日この頃です。

どうかよろしくお願いします。

回答No.1

bin-chan

Gridは何を使用されていますか？

Sourceでどうやってデータを取得しているんでしょうか？

テーブルから直接取得しているなら、クエリーを記述しておけば解決しそうな気がします。

order by 行番号;　の記述がありますか？

補足

>Gridは何を使用されていますか？
MSFlexGrid
>order by 行番号;　の記述がありますか？
あります。
こちらに↓失敗コードを記述します。

mySQL = "select * from 注文伝票詳細テーブル order by 伝票番号,行番号 asc"

Set ds_syousai = db.OpenRecordset(mySQL, dbOpenSnapshot)
If ds_syousai.EOF Then
'省略します。
Else
For j = 1 To Grid1.Row
Text1.Text = ds_syousai.Fields("伝票番号")
Grid1.Row = j
Grid1.Col = 0
Grid1.Text = ds_syousai.Fields("行番号")
Grid1.Col = 1
Grid1.Text = ds_syousai.Fields("商品コード")
Grid1.Col = 3
Grid1.Text = ds_syousai.Fields("数量")
Next j
End If
全部左揃えになってしまい、大変読みづらいプログラムになってしまいました。
こちらでなんとかお願いします。