在报表文件里添加页头,在页头里面添加一个Memo,名称为memo1 procedure TForm1.Button7Click(Sender: TObject); begin ADOQuery3.Close; ADOQuery3.SQL.Clear; ADOQuery3.SQL.Add('select 名称 from 数据库 where 名称='''+Edit1.text+''''); ADOQuery3.Open; if frxReport3.FindObject('memo1') <> nil then frxReport3.FindObject('memo1').Memo.Text := '报表标题'; frxReport3.ShowReport; end;
procedure TForm1.Button7Click(Sender: TObject);
begin
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select 名称 from 数据库 where 名称='''+Edit1.text+'''');
ADOQuery3.Open;
if frxReport3.FindObject('memo1') <> nil then
frxReport3.FindObject('memo1').Memo.Text := '报表标题';
frxReport3.ShowReport;
end;
为什么会出错? 停留在Memo.Text这里?
把memo放到页头里就可以每页显示了.