fastReport中如何实现同时打印2个表的内容？

Question

我想在fastReport中打印完一个表后紧跟着下一页打另外一个表的内容,我第一个表打印的代码是这样的。如何实现呢，请指教?具体点，最好把要加什么band之类也写上。
procedure TForm1.Button1Click(Sender: TObject);
begin
  frxReport1.ShowReport;
end;procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to Table1.Fields.Count - 1 do
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);      Table1.Next;
      Inc(i);
    end;
  end;
end;

Answer 1

可不可以这样？先把它们合并志来，组成QUERY。