急!! 分不够俺再加!! TQuickRep问题.

Question

领导要俺用TQuickRep做数据报表, 根据一定的条件将显示的数据变为不同的颜色有办法吗?TQuickRep可以根据数据的内容改变单元格内文字的颜色吗??
TQuickRep俺从没用过,以前做打印预览都是用Image切来切去,TQuickRep?晕.

Answer 1

可以，可以，要寫代碼，好簡單的在相應的bandr beforband裡面寫吧

Answer 2

{
  1、用DataAccess页面上的Table1组件连接DBDEMOS的animals表
  2、放个TQuickRep1控件，设置属性：
    Bands.HasColumnHeader:= true;
    Bands.HasDetail:= true;
    Bands.HasTitle:= true;
  3、TQuickRep1的Detail里放TQRDBText1，设置
    QuickRep1.DataSet:= Table1
    TQRDBText1.DataSet:= Table1
    TQRDBText1.DataField:= Name
    Table1.Active:= true;
  4、放Button1按钮。
  5、写以下代码：
}
procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
  if Pos('Boa', Value) <> 0 then
    (Sender as TQRDBText).Font.Color:= clRed
  else
    (Sender as TQRDBText).Font.Color:= clBlue;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Preview;
end;//结果是叫'Boa'的鱼儿红色显示，其他都蓝色。
end.