全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:938
推到 Plurk!
推到 Facebook!

判斷數值,在quick report的text顯示色彩

尚未結案
goodjimmy
一般會員


發表:20
回覆:26
積分:9
註冊:2004-02-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-06 08:44:26 IP:218.162.xxx.xxx 未訂閱
各位高手大大:     我是計算損益結果,如果該欄位為正值就顯示藍色,負值就是紅色 可是我不知道這段程式要放在那才能正確的啟動
               while not DataModule1.ADOQuery5.EOF do
        begin
            if DataModule1.ADOQuery5.Fields[9].Value > 0 then
             QRDBText10.Color:=clblue
          else
             QRDBText10.Color:=clred;                DataModule1.ADOQuery5.Next;
        end;
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-06 17:33:01 IP:218.170.xxx.xxx 未訂閱
before print
goodjimmy
一般會員


發表:20
回覆:26
積分:9
註冊:2004-02-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-06 18:51:30 IP:218.162.xxx.xxx 未訂閱
感謝版主的回答 可是寫在before print裡,只顯示最後一筆的資料呈現,並沒辦法完成 所有筆數的報表列印 我寫在 DetailBand1裡,還是要寫在別的物件裡??
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-11-06 22:20:11 IP:220.134.xxx.xxx 未訂閱
寫在 DetailBand1BeforePrint裡面
if DataModule1.ADOQuery5.Fields[9].Value > 0 then
   QRDBText10.Color:=clblue
else
   QRDBText10.Color:=clred;
TRY TRY SEE...
goodjimmy
一般會員


發表:20
回覆:26
積分:9
註冊:2004-02-19

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-11-07 08:40:15 IP:218.162.xxx.xxx 未訂閱
謝謝兩位版主的回答 問題已經解決了 不好意思,對quickreport的元件,還不熟,所以~~它的靈活運用,還搞不清楚 謝謝您們的解答!!
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-11-07 11:11:46 IP:218.170.xxx.xxx 未訂閱
唉呀呀  看到已經來不及了    難得有幾題quickreport的還可以幫個忙的    chih我們因為這一題從 147:147 變成 147:148了  總之 解決了就好...
xogs
一般會員


發表:7
回覆:4
積分:2
註冊:2004-07-14

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-11-07 21:53:32 IP:219.130.xxx.xxx 未訂閱
能否讲得详细点嘛????
goodjimmy
一般會員


發表:20
回覆:26
積分:9
註冊:2004-02-19

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-11-07 21:58:06 IP:218.162.xxx.xxx 未訂閱
丫,不好意思,不知道版主間的良性競爭,那我如果還有其他問題,再請版主們多多指教,謝謝 耐的住被人磨,則會像鑽石一樣發光
系統時間:2024-05-19 0:09:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!