QuickRep1上添加QRBand，QRBand 上添加一个QRDBText，且连接数据库完毕，为什么QrDBText上只显示一条记录？还有：看里面吧：）

Question

dataSet属性设置为AdoDataSet1呀,而且,AdoDataSet1的active=true了

Answer 1

除此以外，还需要检查detailband的dataset属性
不过quickrep这个东西很怪，你在quickrep 设置了dataset属性反而不一定好用。所以我建议你多试几次，看能否试出结果还有，我担心是adoset这个家伙和quickrep的配合有问题哦！你的band是什么band啊？如果不是detailband，就只能显示一条数据。至于next之后还是那条数据的原因，跟设置有关系

Answer 2

不是，我next后显示的是最后一条记录，看代码吧：用的是QRBand.
//-----Unit1-----------
procedure TForm1.Button1Click(Sender: TObject);
begin
    form2.ADODataSet1.CommandText :='select * from Bjiao_jingY';
    form2.ADODataSet1.Active :=true;
    form2.ADODataSet1.First;
    //form2.QuickRep1.DataSet :=nil;
    form2.QRLabel1.caption:=form2.ADODataSet1.fieldbyname('业户名称').AsString ;
    form2.QuickRep1.Preview ;
end;
//-------unit2--------
procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
     self.ADODataSet1.Next;
     if adodataset1.Eof then
     MoreData:=false
     else
     moreData:=true;
end;procedure TForm2.QuickRep1Preview(Sender: TObject);
begin
    form3.QRPreview1.QRPrinter :=self.QuickRep1.Printer ;
    form3.show;
end;procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
AdoDataSet1.First;
end;
//-----unit3----
procedure TForm3.Button1Click(Sender: TObject);
begin
    //form2.ADODataSet1.Next;
    //form2.QuickRep1.DataSet :=nil;
    form2.QRLabel1.Caption :=form2.ADODataSet1.fieldbyname('业户名称').AsString ;
    form2.QuickRep1.Preview ;
end;
//-----dfm文件--
Form1上有一个button1
form2上有QuickREp和AdoDataSet1,设置好了AdoDataSet1的ConnctionString
form3上有QRPreview1 和一个button1

Answer 3

好了，好了，终于试出来了。我真是太愚了，谢谢，各位帮忙了！！！:看下面代码：//-----Unit1-----------
procedure TForm1.Button1Click(Sender: TObject);
begin
    form2.ADODataSet1.CommandText :='select * from Bjiao_jingY';
    form2.ADODataSet1.Active :=true;
    form2.ADODataSet1.First;
    //form2.QuickRep1.DataSet :=nil;
    form2.QRLabel1.caption:=form2.ADODataSet1.fieldbyname('业户名称').AsString ;
    form2.QuickRep1.Preview ;
end;//---------------Unit2---------
procedure TForm2.QuickRep1Preview(Sender: TObject);
begin
    form3.QRPreview1.QRPrinter :=self.QuickRep1.Printer ;
    form3.show;
end;
//----Unit3-----------
procedure TForm3.Button1Click(Sender: TObject);
begin
    form2.ADODataSet1.Next;
    //form2.QuickRep1.DataSet :=nil;
  
    form2.QRLabel1.Caption :=form2.ADODataSet1.fieldbyname('业户名称').AsString ;
    form2.QuickRep1.Preview ;
end;