以一个例子说明:
1、在Table1表中有个字段:总件数
2、在报表设计器上放两个checkbox组件:
3、在MasterData的OnBeforePrint事件中编写如下代码:
procedure MasterData2OnBeforePrint(Sender: TfrxComponent);
begin
if <Table1."总件数"> > 1 then
begin
CheckBox1.CheckStyle := csCheck;
CheckBox2.CheckStyle := csCross;
end
else
begin
CheckBox1.CheckStyle := csCross ;
CheckBox2.CheckStyle := csCheck;
end;
end;