FastReport的一个小疑问。 ( 积分: 50 )

S

superdyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #1

以前大家也经常讨论，把form1的值传到报表中的memo1中去。我怎么老试了都不成功呢？
FR2.5
D7
在Fr的设计窗体中增加了一个参数：dh,将dh指定给memo1。即memo1中显示为[dh]。然后在form1窗口中的代码这样的：
procedure Tfrm_print_jf.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
frVariables['dh']:='hhhhhhhhh';
end;

procedure Tfrm_print_jf.Button1Click(Sender: TObject);
begin
frreport1.loadfromfile('jf.frf');
frreport1.ShowReport;
end;

结果出来的预览窗口，在memo1中还是[dh]这个，不是所希望的：hhhhhhhhh　　
？？

 

S

superdyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #2

以前大家也经常讨论，把form1的值传到报表中的memo1中去。我怎么老试了都不成功呢？
FR2.5
D7
在Fr的设计窗体中增加了一个参数：dh,将dh指定给memo1。即memo1中显示为[dh]。然后在form1窗口中的代码这样的：
procedure Tfrm_print_jf.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
frVariables['dh']:='hhhhhhhhh';
end;

procedure Tfrm_print_jf.Button1Click(Sender: TObject);
begin
frreport1.loadfromfile('jf.frf');
frreport1.ShowReport;
end;

结果出来的预览窗口，在memo1中还是[dh]这个，不是所希望的：hhhhhhhhh　　
？？

 

S

superdyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-25

• #3

谢谢，有谁知道的。被这个问题折腾了一、二个多小时了。还没有搞定！[]

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-25

• #4

procedure Tfrm_print_jf.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
　if [red]ParName[/red]='dh' then
//區分大小寫
[red]ParValue[/red]:='hhhhhhhhh';
end;

 

勇

勇者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-25

• #5

if sametext(ParName,'dh') then

ParValue:='hhhhhhhhh';

 

M

microtan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-25

• #6

这个'dh'可能要全部大写才行

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-28

• #7

www.zptang.ys168.com

 

周

周海涛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #8

在beforeprint 事件里面写,
frreport1.findobject('memo1').lines.add('hhhhhhh')