我现在是这样写的语句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也不对...帮帮忙啊
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也不对...帮帮忙啊
QRDBText的是Caption而不是text!
if FieldByName[字段].AsString='0' then
QRBALEL1。CAPTION:=‘ ’
(Components[i] as TQRDBText).text:='';
(Components[i] as TQRDBText).Caption:='';