While not ADOQuery9.Eof do begin ADOQuery1.Filtered:=False; ADOQuery1.Filter:='f001=' QuotedStr(ADOQuery9.FieldValues['stno']); ADOQuery1.Filtered:=True; ADOQuery2.Filtered:=False; ADOQuery2.Filter:='fc001=' QuotedStr(ADOQuery9.FieldValues['stno']); ADOQuery2.Filtered:=True; FrCompositeReport1.Reports.Clear; FrCompositeReport1.Reports.Add(frReport1); FrCompositeReport1.Reports.Add(frReport2); FrCompositeReport1.PrepareReport; FrCompositeReport1.SavePreparedReport('c:\店號.frf'); ADOQuery9.Next; end 存了好多個 XXX.frf檔,主要是要將各個分店的8張報表合併成一個報表 就是先印 001店 1,2,3,4,5,7,8 再印 002店 1,2,3,4,5,6,7,8 而不是 001店 1,002店 1,001店 2,002店 2................. 可是我的問題來了...直接印沒有問題.. 但是我想利用第二個CompositeReport時.. 將所有分店的xxx.frf 都加進來..卻都沒反應.. 不知道那出了問題..有大大可以幫忙一下嗎.. --以下只試了一個檔,就出不來了-- frReport9.LoadPreparedReport('c:\店號.frf'); frReport9.PrepareReport; frCompositeReport2.DoublePass := True; frCompositeReport2.Reports.Add(frReport9); FrCompositeReport2.PrepareReport; FrCompositeReport2.ShowPreparedReport;