quickrep 设置
rbcolum
rbdetail--qrdbtext
rbsummary
在一个窗体中点button 调用查询,然后预览报表,可什么也没有?(查询结果有数据)。
代码:
procedure TFselectreport.FormCreate(Sender: TObject);
begin
QRDBText6.DataSet:=Dm.ADOQ_select;
QRDBText6.DataField:='价格'; DM.ADOQ_select.Active:=true;
QuickRep1.DataSet:=Dm.ADOQ_select; QuickRep1.Prepare;
QRLabel24.Caption:='第'+inttostr(QuickRep1.QRprinter.PageNumber)+'页,共'+inttostr(QuickRep1.QRPrinter.PageCount)+'页';
QuickRep1.Preview;
end;procedure TFselectreport.QuickRep1AfterPreview(Sender: TObject);
begin
freeandnil(Fselectreport);
end;
rbcolum
rbdetail--qrdbtext
rbsummary
在一个窗体中点button 调用查询,然后预览报表,可什么也没有?(查询结果有数据)。
代码:
procedure TFselectreport.FormCreate(Sender: TObject);
begin
QRDBText6.DataSet:=Dm.ADOQ_select;
QRDBText6.DataField:='价格'; DM.ADOQ_select.Active:=true;
QuickRep1.DataSet:=Dm.ADOQ_select; QuickRep1.Prepare;
QRLabel24.Caption:='第'+inttostr(QuickRep1.QRprinter.PageNumber)+'页,共'+inttostr(QuickRep1.QRPrinter.PageCount)+'页';
QuickRep1.Preview;
end;procedure TFselectreport.QuickRep1AfterPreview(Sender: TObject);
begin
freeandnil(Fselectreport);
end;
2、ADOQ_select是否有数据
QuickRep1.DataSet:=Dm.ADOQ_select;
在程序里设置了
数据也有
我在dbgrid里面显示出来了。
真不知怎么搞的?
不知大家有没有碰到此情况?