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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.