在onBeginBand: procedure TForm1.frReport1BeginBand(Band: TfrBand); begin if frreport1.FindObject('memo1').Memo.Text='0' then begin frreport1.FindObject('memo1').Memo.Text:=''; end else begin frreport1.FindObject('memo1').Memo.Text:=adoquery.fieldyname('fieldname').asstring; end; end;
D7+Fr2.51下通过,在主项数据的(OnBeforePrint)事件中写如下, if [ADOTable1."BH"]='0' then //[ADOTable1."BH"]是你的数据库的那个字段 memo1.memo[0]:='' // memo1是你要清除0的那个memo的名称 else memo1.memo[0]:='[ADOTable1."BH"]';
procedure TForm1.frReport1BeginBand(Band: TfrBand);
begin
if frreport1.FindObject('memo1').Memo.Text='0' then
begin
frreport1.FindObject('memo1').Memo.Text:='';
end
else
begin
frreport1.FindObject('memo1').Memo.Text:=adoquery.fieldyname('fieldname').asstring;
end;
end;
[if(table1.fieldname<>0,table1.fieldname,' ')]
memo1.memo[0]:='' // memo1是你要清除0的那个memo的名称
else
memo1.memo[0]:='[ADOTable1."BH"]';