Quickreport如何将报表直接输出到其它的类型文件,不是在预览时另存. (100分)

  • 主题发起人 主题发起人 xxy888
  • 开始时间 开始时间
X

xxy888

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tprintvendor1.FormCreate(Sender: TObject);
var
adoquery1: TADOQuery;
begin
adoquery1 := TADOQuery.Create(nil);
adoquery1.Connection:=aimsform.ADOConnectionMSSQL;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select fldvendorcode,fldvendorname1 From tblvendor');
adoquery1.Active:=true;
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='fldvendorcode';
end;
 
沒有給quickreport加dataset 屬性
procedure Tprintvendor1.FormCreate(Sender: TObject);
var
adoquery1: TADOQuery;
begin
adoquery1 := TADOQuery.Create(nil);
adoquery1.Connection:=aimsform.ADOConnectionMSSQL;
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('Select fldvendorcode,fldvendorname1 From tblvendor');
adoquery1.Active:=true;
quickreport1.dataset := adoquery1
QRDBText1.DataSet:=adoquery1;
QRDBText1.DataField:='fldvendorcode';
end;
 
你没有指定quickreport加dataset 属性,
我开始用quickreport也出现这样的问题。
 
QRDBText1要放在type 噢detail的band上﹕.
 
答案是对的。
再问一个问题:如何将报表输出到其它的类型文件,不是在预览时另存,是在不预览的情况下输出到其它文件。
 
QuickRep1.ExportToFilter(TQRAscIIExportFilter.Create('Filename.txt'));
此条命令放在 QuickRep1.Print;之前,可以把报表输出到纯文本文件中。然后用Word或Excel都可以读取之。注意:Uses单元中须加入QRExport
 
如果是到excel呢?
 
Excel在打开文件时,可以选择打开纯文本文件。需要选择分栏分隔符。
所以可以事先在QuickRep1中的各栏(QRLabel,QRDBText)之间预设一特定的分隔符。
注意:在QuickRep1中的各栏(QRLabel,QRDBText)必须水平对齐,否则生成的纯文本文件导入Excel后会出现错行混乱。

 
后退
顶部