PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 12549 | 00/08/02 11:56:41 | RE(5):PB6.5: if文の記述制限ってありますか？ By matubrys |
| 12547 | 00/08/02 11:05:35 | RE(4):PB6.5: if文の記述制限ってありますか？ By M.M |
| 12543 | 00/08/02 03:12:41 | RE(3):PB6.5: if文の記述制限ってありますか？ By Taka |
| 12536 | 00/08/01 20:33:59 | RE(2):PB6.5: if文の記述制限ってありますか？ By matubrys |
| 12535 | 00/08/01 20:16:27 | RE(1):PB6.5: if文の記述制限ってありますか？ By M.M |
| 12534 | 00/08/01 20:12:18 | PB6.5: if文の記述制限ってありますか？ By matubrys |
カテゴリ：スクリプトの記述
日付：2000年08月01日 20:12 発信者：matubrys
題名：PB6.5: if文の記述制限ってありますか？
データウィンドウをretrieveしたあとにカラムの値を判定して、色をつけるというスクリプトをウィンドウ関数でつく
っています。内容は以下のとおりです。
For colnum1 = 1 to 31
colflg = dw_1.GetItemString(1,colnum1)
CHOOSE CASE colnum1
CASE 1
if colflg = \"0\" then
dw_1.Object.day1.color = RGB(0,0,0)
end if
if colflg = \"1\" then
dw_1.Object.day1.color = RGB(0,0,0)
end if
if colflg = \"2\" then
dw_1.Object.day1.color = RGB(255,0,0)
end if
if colflg = \"3\" then
dw_1.Object.day1.color = RGB(0,0,255)
end if
・
・
・
CASE 31
if colflg = \"0\" then
dw_1.Object.day31.color = RGB(0,0,0)
end if
if colflg = \"1\" then
dw_1.Object.day31.color = RGB(0,0,0)
end if
if colflg = \"2\" then
dw_1.Object.day31.color = RGB(255,0,0)
end if
if colflg = \"3\" then
dw_1.Object.day31.color = RGB(0,0,255)
end if
END CHOOSE
NEXT
For文で３１回まわしてCase文で該当するカラムを判定して、if文でカラムの値を判定して色をつけると
いうことをしているのですが、exe形式で実行するとアプリケーションエラーになります。
if文が124個もあるんですが、多すぎますか？それとも何かほかにありますか？
アドバイスをお願いします。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.