第二个问题好象比较难解决, 问题是QuickReport 从
前往后进行排版 , 如果一个Group 正好不够排Group Foot,
QuickReport 会自动排到下一页, 也就形成了Group Foot 在
页首.
针对上述问题, 可以通过在Detail Band 的BeforePrint 中
测试Currenty已经不够打印
最后一条Detail Band 和Group Foot,
并且 Group 已经到达最后一条, 这种情况下执行NewPage.
不过, 这种方法排版较慢.
procedure DetailBandBeforeprint(......)
Var CurGroupValue :somevalue ;
begin
if CurrentY >2000 then
begin
//具体数值你看着办
curGroupValue := DateSet.Xfieldvalue;
Dateset.next ;
if Eof then
//没有
newpage ;
else
if (curGroupValue <> DateSet.Xfieldvalue) then
begin
//和前面不同 prior ;
NewPage;
end else
begin
prior ;
end;
end ;
end;
只提供了思路, 具体怎样, 你试一下吧.
