在报表的打印控件的 onPrint 事件中加入以下语句
procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
//判断要打印的值是否是是字符“0”
if Trim(Value)='0' then
//为“0”将值赋成空字符
Value=''
end;
楼上这位兄弟，如果有小数怎么办？要求保留小数点后几位怎么办？
下面是一个解决办法
QRDBtext的mask设成##,##0.00
procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
//判断要打印的值是否是是字符“0.00”
if Trim(Value)='0.00' then
//为“0.00”将值赋成空字符
Value=''
end;
