QuickReport中如何根据字段内容更改所在记录背景色呢？ ( 积分: 100 )

C

coolqiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-17

• #1

比如以下内容，在打印时希望根据部门不同，将所在行的背景色区别开来：
姓名 年龄 部门
-------------------------
张三 21 市场部 //此行用蓝色背景
李四 28 开发部 //此行用绿色背景
王五 25 工程部 //此行用黄色背景
......
我想在DetailBand的BeforePrint事件里面，获取部门字段的值，根据它来更改DetailBand的颜色，但不知道如何获取，请高手赐教！

 

C

coolqiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-17

• #2

比如以下内容，在打印时希望根据部门不同，将所在行的背景色区别开来：
姓名 年龄 部门
-------------------------
张三 21 市场部 //此行用蓝色背景
李四 28 开发部 //此行用绿色背景
王五 25 工程部 //此行用黄色背景
......
我想在DetailBand的BeforePrint事件里面，获取部门字段的值，根据它来更改DetailBand的颜色，但不知道如何获取，请高手赐教！

 

H

hotboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #3

在detailband中放部門字段的onprint事件中寫就可以了。
if value='市場部' then
//

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #4

//DetailBand1
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if ADOQuery1.FieldByName('').AsString = '市场部' then
Sender.Color := 你的color
else
if ADOQuery1.FieldByName('').AsString = '开发部' then
Sender.Color := 你的color
else
if ADOQuery1.FieldByName('').AsString = '工程部' then
Sender.Color := 你的color
end;

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #5

FieldByName('部门').

 

C

coolqiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #6

hotboys的方法只适合更改一个字段的背景，我这里是要改整行的背景，所以jfyes的方法才适合我！

 

C

coolqiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #7

接受答案了.