:同意hujunyi
QrLabel和QrDBLabel都可在它的OnPrint事件中处理:
procedure TQuickReport1.QRLabel1Print(sender: TObject;
var Value: String);
begin
if Value='0' then
Value:='';
end;
如果是QrDBLabel还可在它对应的DataField中作点小手脚。
不要用TQrDbText, 用QrLabel代替
在DetailBand.OnBeforePrint中写
if Table1.FieldByName('FieldName').AsFloat=0 then
QrLabel1.Caption:=''
else
QrLabel1.caption:= Table1.FieldByName('FieldName').AsString;