subreport 列印出现的问题 |
尚未結案
|
mingtai
一般會員 發表:1 回覆:1 積分:0 註冊:2005-03-31 發送簡訊給我 |
我用CRYSTAL REPORTS 10 设计报表,因设计需要在大报表中要套小报表,也就是subreport ,reports和subreport 的database field都设为sql 中所对应的的table
程式如下:
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select orders.*,paper.*,prints.*,process.*,packaging.* from orders inner join format on orders.order_no=format.order_no ');
adoquery2.SQL.Add('inner join paper on orders.order_no=paper.order_no inner join prints on orders.order_no=prints.order_no ');
adoquery2.SQL.Add('inner join process on orders.order_no=process.order_no inner join packaging on orders.order_no=packaging.order_no ');
adoquery2.SQL.Add('where orders.order_no=''' edit1.text '''');
adoquery2.Open;
if opendialog1.execute then begin
crpe1.Connect.Clear;
Crpe1.connect.ServerName:= 'mingtai-server';
Crpe1.connect.DatabaseName:= 'mingtai';
crpe1.Connect.UserID:= 'sa';
crpe1.connect.Password:= '';
crpe1.ReportName:=opendialog1.filename;
Crpe1.Connect.Propagate := True;
crpe1.DiscardSavedData;
try
crpeds1.dataset:=adoquery2;
crpe1.Tables[0].DataPointer:=crpeds1.datapointer;
screen.Cursor:=crhourglass;
// crpe1.ParamFields[0].ShowDialog := False;
// crpe1.ParamFields[0].CurrentValue := pubworkname;
crpe1.execute;
finally
screen.Cursor:=crdefault;
end;
end;
当我打印时,我只想我选择的工单出来,但在subreport中所有的数据资料都显示出来,包含我不需要的,而我已经crpe1.Tables[0].DataPointer:=crpeds1.datapointer 我并没有设save data with report
请问各位是为什么?
谢谢!
|
mingtai
一般會員 發表:1 回覆:1 積分:0 註冊:2005-03-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |