可以通过frDBDataSet1.CheckEOF判断数据是否结束~~
解决方案 »
- Delphi及C#的架构者Anders将于下个月回到Embarcadero,同时他将负责Delphi在移动平台方面的架构工作。
- sql语句嵌入在delphi中会出错,在查询分析器中却可以运行
- 如何在dll中加入WebBrowser2
- 关于日期的问题,谁比较熟悉啊.
- 急用!!!
- Delphi中的sscanf实现
- ComboBox控件增加一列时,同时为这列存储一个对应的整数?
- 如何用SQL语句或存储过程对一个表实现这样的更新功能?
- ==========DELPHI高手进!================
- ***条形码管理系统***,请各位大哥大姐给点思路,谢谢了
- 急急急急急急急急急急急急急急急急急急急急急!!但很简单!
- 如何在子过程中中止执行父过程
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还是要谢谢大家的参与!