ReportBuilder不能动态生成报表吗?(200分)

  • 主题发起人 萧月禾
  • 开始时间

萧月禾

Unregistered / Unconfirmed
GUEST, unregistred user!
我要用ReportBuiler动态生成一个报表
简单地开始,先动态生成1个TppLable
居然就做不出来
以下是一段测试代码
var
lblName : TppLabel;
begin
//lblName := TppLabel.Create(ppReport1);
lblName := TppLabel.Create(ppHeaderBand1);
lblName.Caption := 'test';
lblName.Font.Size := 10;
lblName.Color := clBlack;
lblName.Top := 10;
lblName.Left := 10;
lblName.Parent;
//设断点观察,其为空: nil
//预览
ppReport1.Print;
end;

预览时根本没有生成的ppLabel
翻看以前的相关帖子,有人提出过类似的问题
但未能被解决
难道。。。ReportBuilder不能动态生成报表吗?
 
lblName.Parent :=ppReport1
 
lblName.Parent是只读的呀,不可以赋值
 
类似这样:
lReport:=Tppreport.Create(self);
with lReportdo
begin
defaultBands:=[btHeader,btDetail,btFooter,btsummary];
CreateDefaultBands;
end;
with TppLabel.Create(self)do

begin
band:=lReport.HeaderBand;
Caption := 'test';
Font.Size := 10;
Color := clBlack;
Top := 10;
Left := 10;
end;
lReport.Print;
lReport.Free;
 
DJ兄,还是没显示呀
在你那可以吗??
可不可以发个例子给我?
谢谢!
cczhlxu@21cn.com
 
真的没人能帮我吗?
至少帮忙提前一下可以吗?
 
font.Color := clBlack;
 
to dj:
有这句呀
font.Color := clBlack;
给我你的例子罢

 
LReport.DataPipeline:=yourDatapipeline
 
???
DJ兄
似乎都不起作用呀
将你的例子发到我的email里罢
甚谢!
如果成功,这200分是你的
 
天啊~~~~~~,200分都换不到个结果
谁能比我惨~~~~~~~~~~~~~~~~~~[:(]
 
邪门!
你的信箱地址?
 
cczhlxu@21cn.com
 
为何要动态生成TppLable?
 
呵呵,刚刚搞定了
多谢DJ兄了
送分!!!
 
procedure TForm1.Button1Click(Sender: TObject);
var
lblName : TppLabel;
begin
lblName := TppLabel.Create(ppHeaderBand1);
lblName.Caption := 'test';
lblName.Font.Size := 10;
lblName.Color := clBlack;
lblName.Top := 0.1146;
lblName.Left := 1.4896;
lblName.Width := 0.41;
lblName.Height := 0.15;
lblName.Parent;
ppReport1.Print;
end;
 
DJ大哥:
搞不定呀
你的程序我编译都不过
 
顶部