PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
13929 00/11/16 17:22:31 RE(10):PB7.0: 検索の仕方 By あみっこ
13927 00/11/16 16:56:27 RE(9):PB7.0: 検索の仕方 By t.y
13926 00/11/16 16:07:36 RE(8):PB7.0: 検索の仕方 By おら
13925 00/11/16 15:25:00 RE(7):PB7.0: 検索の仕方 By あみっこ
13913 00/11/15 17:21:56 RE(6):PB7.0: 検索の仕方 By あみっこ
13910 00/11/15 15:53:26 RE(5):PB7.0: 検索の仕方 By t.y
13909 00/11/15 15:22:41 RE(4):PB7.0: 検索の仕方 By てとらぽっと
13907 00/11/15 15:12:24 RE(3):PB7.0: 検索の仕方 By こてちゅ
13906 00/11/15 14:40:00 RE(2):PB7.0: 検索の仕方 By あみっこ
13896 00/11/14 15:37:53 RE(1):PB7.0: 検索の仕方 By t.y
13893 00/11/14 12:00:29 PB7.0: 検索の仕方 By あみっこ

カテゴリ:データウィンドウ
日付:2000年11月16日 17:22 発信者:あみっこ
題名:RE(10):PB7.0: 検索の仕方

t.yさん、おらさん、こんにちは。
暫く自分でごにょごにょ考えてみましたところ、以下のスクリプトでうまく行きました。

/*--- ここからスクリプト ---*/
string sSelect, sWhere 
String s_oldSQL,s_newSQL

//既存のSQLを取得しますよ
s_oldSQL = dw_shouhinsentaku.GetSQLSelect()

If sle_shouhincode.text <> \"\" Then /*商品IDが書いてあった場合*/
sWhere = \"WHERE CH_SYOUHIN_CD = \'\" +  sle_shouhincode.text + \"\'\"
Else
IF rb_com.checked = True THEN /*コミッション対象のみ*/
sWhere = \"WHERE CH_COMTAISYOU = 1\"
ELSEIF rb_comgai.checked = True THEN /*コミッション対象外のみ*/
sWhere = \"WHERE CH_COMTAISYOU <> 1\"
ELSEIF rb_all.checked = True THEN /*全検索*/
sWhere = \"\"
ELSEIf sle_shouhinmei.Text <> \"\" THEN /*商品名が書いてあるとき*/
sWhere = \"WHERE VC_SYOUHIN_NM = \'\" + sle_shouhinmei.Text + \"\'\"
ELSE /*空欄のとき(?)*/
sWhere = \"\"
END IF
End If

//オリジナルのSQLに新しいWhere句を追加
s_newSQL = s_oldSQL + sWhere
//Select文の変更
dw_shouhinsentaku.SetSQLSelect(s_newSQL)
//検索の実行
dw_shouhinsentaku.Retrieve()
/*--- ここまでスクリプト ---*/

しかし、t.yさん、おらさんに教えていただいた方法でも組んでみます!
マルチに組めた方が良いと思いますし・・・。
それでは失礼致します。


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows95
DBMS (記載なし)
Browser InternetExplorer4.X

Server SoftWare

OS Windows NT 4.0
DBMS Oracle 8.0
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.