做fastreport報表時,如何给报表賦值? ( 积分: 50 )

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #1

做fastreport報表時,当按下Button2 后 怎样在程序中给报表賦值,
比方说:如何把报表的 Memo1.Memo.Text 賦值.
我是这样做的:
procedure TForm1.Button2Click(Sender: TObject);
begin
self.frReport1.FindObject('Memo4').Memo.Text:=edit1.text;
self.frxReport1.ShowReport;
end;
出错为:Undeclared identifier:'frReport1', 如何给报表賦值?

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #2

做fastreport報表時,当按下Button2 后 怎样在程序中给报表賦值,
比方说:如何把报表的 Memo1.Memo.Text 賦值.
我是这样做的:
procedure TForm1.Button2Click(Sender: TObject);
begin
self.frReport1.FindObject('Memo4').Memo.Text:=edit1.text;
self.frxReport1.ShowReport;
end;
出错为:Undeclared identifier:'frReport1', 如何给报表賦值?

 

D

delfier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #3

Frreport1.Pages[0].FindObject('Memo4').Memo.Add(edit1.text);
其实最好是使用自定义变量。

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #4

to 楼上:
self.Frreport1.Pages[0].FindObject('Memo4').Memo.Add(edit1.text);
运行后还是出错:Undeclared identifier:'frReport1', 如何给报表賦值?

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #5

to 楼上:
self.Frreport1.Pages[0].FindObject('Memo4').Memo.Add(edit1.text);
运行后还是出错:Undeclared identifier:'frReport1', 如何给报表賦值?

 

唐

唐佐平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #6

看看使用手册吧：
http://www.zptang.ys168.com

 

J

jxyghm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #7

是拷贝粘贴的FrReport1吗

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #8

不明白什么意思

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #9

能介绍一下如何给报表賦值?

 

X

xrs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #10

仔细看看手册FastReport3.0中文手册http://www.delphibbs.com/keylife/iblog_show.asp?xid=18372

 

W

w1229

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #11

试一下
self.frReport1.FindObject('Memo4').Memo.string[0]:=edit1.text;

 

B

boylafong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #12

如果你想报表出来时候Memo1的内容为 'MyText'你可以用如下方法:
1:在frReport的Memo1里面输入[MyString] // 记得要带中括号
2:在FrReport的OnGetValue事件里面写
if AnsiCompartText(Parname, 'MyString') then
begin
ParValue := 'MyText';
// ParValue是事件里的一个参数
end;
以上功能是报表启动的时候,如果找到了你定义的MyString变量就把MyText赋给他.

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-12

• #13

to 楼上:
用你上面的方法还是出现这样的错误:
Undeclared identifier:'AnsiCompartText'
我这样做:
var
Form1: TForm1;
implementation
uses Frxdesgn;
{$R *.dfm}
……
procedure TForm1.frxReport1GetValue(const VarName: String;
var Value: Variant);
begin
if AnsiCompartText(Parname, 'MyString') then
begin
ParValue := 'MyText';
// ParValue是事件里的一个参数
end;
end;

在frReport的Memo1里面已输入[MyString]

 

S

start_abc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-12

• #14

多谢各位