liangzai
初階會員
發表:77 回覆:91 積分:33 註冊:2004-08-13
發送簡訊給我
|
以下是Table中的几个field,
Employee_No Type Text1 Text2 Text3 ... 在quickreport中Dateset对应于这个table
所有的QRDBText分别与以上的field相对应 现在希望在quickreport中实现:当对应于Type这个field的QRDBText等于某一个值时,该条记录的颜色变成红色,不等于时颜色不变,用于区分记录。 各位前辈,敬请赐教!谢谢!
|
shinjie
資深會員
發表:12 回覆:275 積分:287 註冊:2003-03-19
發送簡訊給我
|
在Quickreport中的Table裡AfterScroll判斷
if ADOQuery1.FieldByName('Type').AsString='值' then
QRDBText.Font.Color:=clred
else
QRDBText.Font.Color:=clBlack;
------ 我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之;我幸。不得;我命。
|
liangzai
初階會員
發表:77 回覆:91 積分:33 註冊:2004-08-13
發送簡訊給我
|
hi,shinjie!
为什么我按照你的在procedure Tdm.Table4AfterScroll(DataSet: TDataSet);中加入你所说的语句,但是提示说:undeclared identifier:'clred';
undeclared identifier:'clwhite'等。
困惑。。。。
|
shinjie
資深會員
發表:12 回覆:275 積分:287 註冊:2003-03-19
發送簡訊給我
|
請在Unit的最上方,加入Graphics uses
Windows, Messages, SysUtils, Classes, Graphics,........;
------ 我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之;我幸。不得;我命。
|
liangzai
初階會員
發表:77 回覆:91 積分:33 註冊:2004-08-13
發送簡訊給我
|
hi,shinjie!
为什么我按照你的在procedure Tdm.Table4AfterScroll(DataSet: TDataSet);中加入你所说的语句,但是提示说:undeclared identifier:'clred';
undeclared identifier:'clwhite'等。
困惑。。。。
|
liangzai
初階會員
發表:77 回覆:91 積分:33 註冊:2004-08-13
發送簡訊給我
|
hi,shinjie
我现在想把这项操作放在ravereport中实现,不知怎么实现?
在rave中code写在什么地方啊?刚准备试用rave,请多指教。
|
shinjie
資深會員
發表:12 回覆:275 積分:287 註冊:2003-03-19
發送簡訊給我
|
引言:
hi,shinjie
我?在想把??操作放在ravereport中??,不知怎么???
在rave中code?在什么地方啊??准??用rave,?多指教。
抱歉,我對RaveReport不熟,所以我也不清楚怎麼寫。
你可以再開一個主題,比較會有人回覆。
------ 我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之;我幸。不得;我命。
|