可以通过frDBDataSet1.CheckEOF判断数据是否结束~~
解决方案 »
- 我是新手,有人能帮我一下吗?
- 求SkinCrafter 在delphi 2009中的用法
- 求算法:
- 怎样动态删除一个ACCESS文件?
- 我在win98中使用命令scm.exe -Action 6 -Silent 1 -Service mssqlserver无法停止sqlservr,请大家指点错在哪里?谢谢!
- 请问用软件做多媒体教学(代替硬件)的问题
- 编组件的请进。
- pascal之with语句有何用?
- 打开bpl窗体,说在rtl190.bpl内存报错
- 中南大学的老师怎么是这个样子的,这是学校管理的问题吗?(来者有分)
- 急急急急急急急急急急急急急急急急急急急急急!!但很简单!
- 如何在子过程中中止执行父过程
Field1 Field2 Field3 Field3...
...
...
小计
...
...
小计
合计 ...
__________________________________
在QR中我用了onNeedData,在其中指定各Label显示字段,并且在程序中根据条件判断换页:如果Feild1的值为'小计'并且下一记录值不为'合计'则换页。上述程序在QR预览成功实现,但是因为实际打印中有问题(据说是QR的BUG),所以不得不用FastReport,只是对它还不熟悉,特此在此请教高手。别让我添加数据字段,然后在FR中分组打印,不想改数据,谢谢!
在onmanualbuild 写一些代码
tform1.frReport1ManualBuild(Sender: TfrPage);
var
i, j: Integer;
begin
Sender.ShowBandByType(btReportTitle);
for i := 0 to 3 do
begin
Sender.ShowBandByName('Band2');
for j := 0 to 2 do
Sender.ShowBandByName('Band3');
if i <> 3 then
Sender.NewPage;
end;
end;
你自己先做一个最简单的打印
数据表的程序看看吧!其实,我已经讲的很具体了,补充一点
在程序设计时,在fastreport编辑器里
加入两个band,分别为band2,band3
其他的真的不错,我以为:)
你着段程序来自它的Help,可是看不出与我的需求有多大关系,麻烦你仔细说说好吗?
谢谢!
你可以对masterband上的memo赋值。
begin
s := '';
endMasterData.OnBeforePrint:
begin
s1 := [Table1."Field11"];
if s = '小计' then
if s1 <> '合计' then
NewPage;
s := s1;
end还是要谢谢大家的参与!