当前位置:主页>销售管理软件> 列表

fastReport中的分组分页,300大洋求问,在线等候 找免费进销存系统

财务软件版1楼: 打印一张报表,如假设一共有20页,分成4组,每组有5页,在打印时要对每个分组显示,对应页数为:
第1页/共5页 第2页/共5页 第3页/共5页 第4页/共5页 第5页/共5页
第1页/共5页 第2页/共5页 第3页/共5页 第4页/共5页 第5页/共5页
第1页/共5页 第2页/共5页 第3页/共5页 第4页/共5页 第5页/共5页
第1页/共5页 第2页/共5页 第3页/共5页 第4页/共5页 第5页/共5页
要怎么进行设置?
在线等候!

2楼: 技術交流QQ:136293586
這個報表可以做到。 如免费进销存系统

3楼: Page footer
第 [PAGE#] 页/共 [TOTALPAGES] 页

4楼: to bbscom:
你的肯定是不符合要求的,都不能实现分组的功能。

5楼: 第 ([PAGE#] mod 5)+1 页/共 5页
这样应该可以实现。

6楼: 通过脚本可以实现,主要fastReport的一个变量: FinalPass ,同时设置两次报表就可以实现了。
看看例子:
页标题打印前脚本:
if not FinalPass then
begin
if ([Page#] = 1) then
begin
Index := 0;
LastSheetID := [Query3."SheetID"];
for I:=0 to 1000 do
CurrPages[I] := 1;
end else begin
if LastSheetID <> [Query3."SheetID"] then
Index := Index + 1
else
CurrPages[Index] := CurrPages[Index] + 1;
LastSheetID := [Query3."SheetID"];
end;
end else begin
if [Page#] = 1 then
begin
I:= 0;
LastSheetID2 := [Query3."SheetID"];
end else begin
if LastSheetID2 <> [Query3."SheetID"] then
I := I + 1;
LastSheetID2 := [Query3."SheetID"];
end;
end;

输出页码【第 [CurrPage] 页 / 共 [CurrPages[I]] 页】
输出页码打印前脚本:
begin
if CurrPage = CurrPages[I] then
begin
CurrPage := 1;
end else
CurrPage := CurrPage + 1;
end;
end
输出页码打印后脚本:
begin
if [PAGE#] = 1 then
begin
CurrPage := 1;
end;
end