进来看一看好吗？谢谢，UP有分啊！在线等待

Question

请参照我以前的贴子：
http://www.csdn.net/expert/topic/665/665871.xml?temp=.5753137//不过问题没有解决的；
谢谢各位大哥

Answer 1

还有就是，如上边的
if RadioButton2.Checked then
begin
  ....
// 在这儿的四页中只能显示第一页，无论把那个放到前边，总是显示最前边的那
// 一页，这就说明不是报表本身的问题啊！
end;

Answer 2

看一看是不是系统的问题，如果是在delphi5中的话，那么把同样的代码写到delphi6中试一试，如果是delphi6中的话，那么将其代码写到delphi5中，我再帮你试一试；

Answer 3

你在选择delphi安装的时候是完全安装吗？
看一下它的组件是否安装的很完全，特别是报表这一块，因为不是宝兰公司自己的产品，报表特别是quickrpt.pas，你看一看它的源码；

Answer 4

很惭愧，自己能力有限，但我会再看的；
很惭愧，up+gz，人真的好多啊；
无语……

Answer 5

各位大哥，帮帮我吧，谁能帮我，我将相片送上；
先谢谢；
TO ihihonline(小小->充电中……) 
你说的那个quickrpt.pas文件，我这儿好像没有啊！
我应该如何办啊？
再帮帮我啊！
谢谢：）

Answer 6

但是我不明白，为什么前边可以add的，而且成功了，可是现在却不可以了，为什么啊？

Answer 7

   with QRCompositeReport1.Reports do
   begin
     Clear;
     if RadioButton1.Checked then
     Begin
       Clear;
       Add(form3.QuickRep1);//可以执行啊
       Add(form4.QuickRep1);//可以显示两个页面
     end;
     if RadioButton2.Checked then
     begin
       Clear;   
       Add(Form9.quickrep1);//为什么只能显示第一页啊？
       Add(dy_gbrmcb_7form.quickrep1);//不能显示
       Add(Form7.QuickRep1 );//不能显示
       Add(Form8.QuickRep1 );//不能显示
     end;
   end;
你这样改一下   with QRCompositeReport1.Reports do
   begin
     Clear;
     if RadioButton1.Checked then
     Begin
       Clear;
       Add(form3.QuickRep1);//可以执行啊
       Add(form4.QuickRep1);//可以显示两个页面
     end;
     if RadioButton2.Checked then
     begin
       Clear;   
       Add(quickrep1);//你在一个页面放置四个quickrep试一试；
       Add(quickrep2);//
       Add(QuickRep3 );//
       Add(QuickRep4 );//
    end;
   end;

Answer 8

CSDN上竟然不多用QRCompositeReport1这个控件；

Answer 9

各位大虾：
    xgto真是个可爱的女孩噢！大家快帮帮她吧！看她急的！to xgto:
    你的照片实在是看不清楚，能不能来张近照啊？
    这个问题我真的没做过哎，我从没有写过报表，很烦，都是别人写的，呵呵！
不过我一直在帮你噢！再帮你up吧！

Answer 10

xgto (陪我去看流星雨，可以吗？)：
这个控件我用过，应该没问题的，我好像是用8张QucikReport吧，代码我找找看。另：我可以陪你去看流星雨，只是流星雨真的那么好看吗？那是猪头四才会去看的，：）

Answer 11

QRCompositeReport1.Reports.Add返回的是Integer，你可以看看每个返回值是否一样？
我试了试，我怎么就管用呢？不会欺负你是小女生吧？
 with QRCompositeReport1.Reports do
   begin
     Clear;
     if RadioButton1.Checked then
     Begin
       Clear;
       Add(form2.QuickRep1);
       Add(form3.QuickRep1);
     end;
     if RadioButton2.Checked then
     begin
       Clear;
       Add(form3.QuickRep1);
       Add(form2.QuickRep1);
     end;
   end;

Answer 12

程序我已经给你发过去了，不过，不是用QRCompositeReport1，但是也同样可以实现你所想要的，希望你能用的上

Answer 13

程序我已经给你发过去了，不过，不是用QRCompositeReport1，但是也同样可以实现你所想要的，希望你能用的上

Answer 14

TO wolfAone(¤一步一步网上爬¤) ,你能告诉我，得到数字之后又能如何？
如果是一样，那么会是什么情况？如果是一样的话，我又应该如何做啊？

Answer 15

TO del_c_sharp(feifei) 叫嚣东西的做什么啊？

Answer 16

首先，你要确定你的报表做的没有问题。
第二，检查一下代码。看是否引用了那些单元。
第三，那些form不能autocreate.

Answer 17

我试了试，结果连第一个页面都不显示的
begin
with QRCompositeReport1.Reports  do
 begin
  clear;
  add(QuickRep1);
  //add(quickrep2);
 end;
  QRCompositeReport1.Preview;
end;

Answer 18

Qucik控件是挪威一家软件公司专门为Delphi做的一个套件，帮助信息不是很详细。但是返回值应该是表示执行的情况，譬如说返回1表示成功Add，返回0表示Ａｄｄ不成功，所以你可以判断返回值来判断那些是否成功了，我试了一下，0应该表示成功添加，你再看看。

Answer 19

procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
var
  I :Integer;
begin
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I)) ;
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I)) ;
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  ....
end;
你说他会返回什么？
0，1，2，......
所以，我在想，这是不是系统的事情啊？

Answer 20

看看：QRCompositeReport1.Reports.Count是否跟你想像的一致呢？

Answer 21

procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
var
  I :Integer;
begin
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I)) ;
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I)) ;
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  ....
end;
你说他会返回什么？
0，1，2，......
所以，我在想，这是不是系统的事情啊？

Answer 22

procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
var
  I :Integer;
begin
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I)) ;
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I)) ;
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  I := QRCompositeReport1.Reports.Add(QuickRep1);
  ShowMessage(IntToStr(I));
  ....
end;
你说他会返回什么？
0，1，2，......
所以，我在想，这是不是系统的事情啊？