我现在是这样写的语句procedure Tprint.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var i:integer; begin for i:=0 to ComponentCount-1 do if Components[i] is TQRDBText1 then begin if (Components[i] as TQRDBText).text='0' then (Components[i] as TQRDBText).text:=''; end;end;提示(Components[i] as TQRDBText).text的.text不对,那应该用什么?用.field也不对
为0就赋空值
var PrintBand: Boolean);
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TQRDBText1 then
begin
if (Components[i] as TQRDBText).text='0' then
(Components[i] as TQRDBText).text:='';
end;end;提示(Components[i] as TQRDBText).text的.text不对,那应该用什么?用.field也不对