高分求解，FastReport4.6.8 frxpreview多表预览问题!

FCU 2011-03-22 04:55:41



        ADOQuery1.Close;

          ADOQuery1.SQL.Text := 'select * from tb1';

          ADOQuery1.Open;

//----------------报表1  Begin

          if ADOQuery1.RecordCount>0 then

          begin

            frxReport1.LoadFromFile(SysPath+'RPT\PHMX.FR3');

            TfrxMemoView(frxReport1.FindObject('Memo2')).Text := temMarkte+'配货明细';

            frxReport1.PrepareReport(False);

          end;

//----------------报表1  End





        ADOQuery1.Close;

          ADOQuery1.SQL.Text := 'select * from tb12222';

          ADOQuery1.Open;



//----------------报表2  Begin



          if ADOQuery1.RecordCount>0 then

          begin

            frxReport1.LoadFromFile(SysPath+'RPT\PHMX.FR3');

            TfrxMemoView(frxReport1.FindObject('Memo2')).Text := temMarkte+'配货明细';

            frxReport1.PrepareReport(False);

          end;

//----------------报表2  End





           frxReport1.ShowPreparedReport;