fastreport 问题，在线等(200分)

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #1

我用fastreport做一财务报表，想要实现在帐本上当一页放不下时要有一‘过次页’
行，在第二页开始要有一‘承前页’行，‘过次页’这栏要做贷方，借方，余额的合计
合计方法是 ‘过次页’借方＝‘承前页’借方＋本页借方合计。贷方同理。而且要实现
第二页的‘承前页’的值等于第一页的‘过次页’值。

 

V

vmao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #2

‘过次页’--行放在页脚上！
‘承前页’--行放在页头上！
开辟一个变量用来做累计！

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #3

‘过次页’--行放在页脚上！
‘承前页’--行放在页头上！
这样的话整个表格不连贯。
我用分组法，将‘承前页’放在groupheader上，将‘过次页’放在groupfooder上。
分组条件是将每页为一组。现在遇到的问题是合计问题。还有第一页的过次就是第二
页的承前~~

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #4

高手请赐教，验证通过马上给分，不够在加~~急呀~~

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #5

在页头的(OnBeforePrint)中：
begin
if [TOTALPAGES]>[PAGE#] then
begin


memo35.memo:='过次页';

end;
if ([TOTALPAGES]=[PAGE#])and([TOTALPAGES]<>1)or(([TOTALPAGES]>[PAGE#])and([PAGE#]<>1)) then
begin
memo35.memo:='承上页';
end;

end

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #6

to shbjkl
老兄这段代码好象只能实现什么时候有'过次页'，什么时候有'承上页'。
此问题我已解决。现在遇到的是 1、怎么将同一页中‘承前页’的贷方
金额＋此页中各记录的贷方总额＝‘过次页’的贷方金额。此页中各记
录的贷方总额好实现用一个sum()就解决了。2、第二页的‘承前页’的
贷方金额就是上页中过次页’的贷方金额。不知shbjkl能不能指点一二。

 

T

ty123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #7

想帮你，但你的报表死活看不懂，只能帮你提提。

 

T

ty123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #8

想帮你，但你的报表死活看不懂，只能帮你提提。

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #9

to ty123
thanks~~提提也好呀~

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #10

在页头的(OnBeforePrint)中：
begin
if [TOTALPAGES]>[PAGE#] then
begin


memo34.memo:='过次页';

end;
if ([TOTALPAGES]=[PAGE#])and([TOTALPAGES]<>1)or(([TOTALPAGES]>[PAGE#])and([PAGE#]<>1)) then
begin
memo35.memo:='承上页';
memo2.memo:=memo1.memo//memo1 就是sum（）那个memo
end;

end
这样可以吗

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #11

to shbjkl
这样并没有起到合计的作用。顺便问一下，能不能取出memo1当前页中显示的值？

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #12

用frVariables对象，如果在报表中任意一个对象的脚本里有写下面的代码：
MyVariable := 10
在程序中可以用如下的代码来获取MyVariable变量的值：
v := frVariables['MyVariable'];

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-19

• #13

不行呀，还是无法完成合计问题~~

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #14

难道就没有高手么？？？

 

C

chen_gxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #15

这个控件好象没有针对这个的方法，有谁知道，请告诉我一声吧，我现在正要用FASTREPORT来做报表，谢谢。

 

V

vmao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #16

叫你放页头页脚上你偏不听！我有什么办法？
很简单的问题！

 

X

xijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #17

看不懂你什么意思
太复杂的我一般就在delphi里面把东西全都做好，该计算的计算，该统计的统计，
然后直接往fr里赋就是了，报表就是做个显示用的，在它里面用到太多的script，
到最后维护的时候特别麻烦。

 

D

dream-kai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #18

定义一个全局动态数组GlbArray：array of real;利用数组来记录报表中每页“借方”的统计
function GetValue(i;Integer):real;
begin
setlength(glbarray,20);
glbarray[0]:=0;
glbarray:=A(A为每页记录统计的总和）；
result:=glbarray+glbarray[i-1];
end;
将返回值付给“过次页”；

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-25

• #19

还有没有高手呀？

 

艳

艳蓝天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #20

多人接受答案了。