分组分页的问题（比较常见的） ( 积分: 100 )

  • 主题发起人 主题发起人 tlcysb
  • 开始时间 开始时间
T

tlcysb

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一表如下：
DW NAME INFO OTHERS ......
工程部 张三 23 大学 ......
工程部 李四 25 大专 ......
......
质检部 王五 30 大学 ......
质检部 钱六 31 大学 ......
.......
做fastreport分组报表，按dw分组，每组放到一页纸上，页脚对部分字段有小计，如何实现？请大家帮忙。
 
我有一表如下：
DW NAME INFO OTHERS ......
工程部 张三 23 大学 ......
工程部 李四 25 大专 ......
......
质检部 王五 30 大学 ......
质检部 钱六 31 大学 ......
.......
做fastreport分组报表，按dw分组，每组放到一页纸上，页脚对部分字段有小计，如何实现？请大家帮忙。
 
easy
SQL语句=select * from Table group by dw
1、然后放置一个 分组头 group header,在其中放dw,
2、放一个分组尾 group footer，在其中放sum("Info")它会自动小计的
其实你可以看看自带Demo，里面都有
 
谢谢！主要是一组一页不好实现！能否给指点？我初次做报表，已折腾5天了。
 
哦
明白了！
也非常Easy的！
我有一个方法
就是动态创建每一页！
肯定能满足你的要求，因为我们的复杂报表就是这么解决的
比你的复杂多了。
 
可惜我的程序在公司，明天给你email ok?
 
谢谢！我的email:tlcysb@163.com
 
老兄：
可能还有其它的简单办法
你在这里面写个事件试试
procedure TForm1.frReport1ManualBuild(Sender: TfrPage);
var
i, j: Integer;
begin
Sender.ShowBandByType(btReportTitle);
for i := 0 to 3do
begin
Sender.ShowBandByName('Band2');
for j := 0 to 2do
Sender.ShowBandByName('Band3');
if i <> 3 then
Sender.NewPage;
end;
end;
 
给你发了一个email,它自带的，看看对你有什么启发
 
我先看看，多谢了！！！！！！！
 
接受答案了.
 
是否已经解决？
 
是的，谢谢！！！
 
您必须登录或注册才可回复。

Similar threads

B
比较棘手的问题（报表）(5分)
回复
0
查看
146
beyzhzj
B
L
100分求解一个问题(100分)
回复
2
查看
173
h2dog
H
T
穷的一文都没，但问题还是要问。分组分栏报表(0分)
回复
3
查看
166
ttaa
T
M
很简单的报表打印问题，大虾们请帮帮忙(50分)
回复
3
查看
203
missqiao
M
冰
关于页面设置的问题，FR的大虾们请帮帮手，100分送上(100分)
回复
5
查看
225
冰雪
冰
后退
顶部