[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/04/05(Tue) 11:17
投稿者名:いち
Eメール:
URL :
タイトル:
二つのテーブルから検索した結果をMSFlexGridに表示するには?
よろしくお願いします。
Access2000 VB6.0 Win2000で開発中です。
見積書を作っています。

・見出テーブル(MITUMORI)
見積番号,日付,得意先,担当,件名,金額,条件…
・詳細テーブル(SYOUSAI)
キー,見積番号,行数,品名,数量,単価,金額

と二つのテーブルを作り
見積テーブル(得意先,件名)、詳細テーブル(品名)の3つから文字検索をしてあればMSHFlexGridに表
示した
いと思っています。
同じ見積番号は表示しないようにしたいのです。
今、いろいろSQL文を調べてやってみたのですが、同じ見積番号が表示されてしまったりして、どうし
たらよ
いのか困っています。
よろしくお願いします。

ちなみに調べたSQL文
STRSQL = "SELECT  DISTINCT MITUMORI.見積番号,MITUMORI.日付,MITUMORI.得意先,"
STRSQL = STRSQL & "MITUMORI.担当,MITUMORI.件名,MITUMORI.金額,MITUMORI.条件,"
STRSQL = STRSQL & "SYOUSAI.見積番号,SYOUSAI.品名 "
STRSQL = STRSQL & "ROM MITUMORI INNER JOIN SYOUSAI "
STRSQL = STRSQL & "ON (MITUMORI.見積番号 = SYOUSAI.見積番号)  "
STRSQL = STRSQL & "where MA03 Like '%" & text1 & "%'"
STRSQL = STRSQL & " or MA05 Like '%" & text1 & "%'"
STRSQL = STRSQL & " or MA06 Like '%" & text1 & "%'"
STRSQL = STRSQL & " or MB04 Like '%" & text1 & "%'"

よろしくお願いします。

投稿時間:2005/04/05(Tue) 12:48
投稿者名:いな
Eメール:
URL :
タイトル:
Re: 二つのテーブルから検索した結果をMSFlexGridに表示するには?
> ちなみに調べたSQL文
> STRSQL = "SELECT  DISTINCT MITUMORI.見積番号,MITUMORI.日付,MITUMORI.得意先,"
> STRSQL = STRSQL & "MITUMORI.担当,MITUMORI.件名,MITUMORI.金額,MITUMORI.条件,&quo
t;
> STRSQL = STRSQL & "SYOUSAI.見積番号,SYOUSAI.品名 "
> STRSQL = STRSQL & "ROM MITUMORI INNER JOIN SYOUSAI "
> STRSQL = STRSQL & "ON (MITUMORI.見積番号 = SYOUSAI.見積番号)  "
> STRSQL = STRSQL & "where MA03 Like '%" & text1 & "%'"
> STRSQL = STRSQL & " or MA05 Like '%" & text1 & "%'"
> STRSQL = STRSQL & " or MA06 Like '%" & text1 & "%'"
> STRSQL = STRSQL & " or MB04 Like '%" & text1 & "%'"
>
> よろしくお願いします。

VBの掲示板的に解釈するならば、・・・。
#見積番号でソートをかけていないから厳しいな、
見積番号を配列に格納し、
格納された配列のいずれかの見積も番号と一致すれば表示しないというような処理が必要です。

ソートされていれば、見積番号を変数に格納し、
その変数と一致すれば表示させないというような処理を行います。
ここまでが、VBの掲示板に書かれたという意味合いでの回答・・・。


私がやる場合このように分岐を持たせるのが嫌いなので
余計な情報は検索にHitしないようにSQLを修正します。
これは、VBとはまったく関係ないので詳細は割愛します。

投稿時間:2005/04/05(Tue) 13:04
投稿者名:いち
Eメール:
URL :
タイトル:
Re^2: 二つのテーブルから検索した結果をMSFlexGridに表示するには?
いなさん
早速回答ありがとうございました。

申し訳ありませんでした、いろいろ調べていて、一番わかりやすくいつも利用していたので、ついついS
QL文もと
言うことで、この掲示板を利用してしまいました。

場違いで申し訳ありませんでした。