康虎云报表如何根据字段值改变checkbox组件的显示状态

admin 2019-12-12 13647

以一个例子说明:

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;


最新回复 (0)
返回