大家快來幫忙，等待中。。。。。。。解決了馬上結帖。。。。。

Question

比如，在fastRepot3.0報表文件123.fr3中有控件text1,程序窗體中有控件edit1.text：='abcd'.
我怎樣才能把edit1的值付給123.fr3中的text1?
預覽？

Answer 1

方法一：
先在fr的memo里面增加一个 [ABC] 的变量，
然后
procedure Tfrm1.fr1GetValue(const ParName: String;
  var ParValue: Variant);
begin
//标签和字段赋值
  if ParName = 'ABC' then  //ABC是fr里面的任何一个变量名
  begin
        ParValue:= memo1.text;
  end;
方法二:
在打印按钮里写下如下代码：
frReport1.Dictionary.Variables['19'] := datetimetostr(date1);
在控件frReport1的适当位置放置文本编辑控件：
里面写下参数[19]即可。
注：19为任意值

Answer 2

能不能說的細一點？我試了不行啊。提示沒有Dictionary
最好是按我說的例子，先謝謝了。

Answer 3

你用的幾什麼版本啊？我的怎是這樣。
procedure TForm1.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
         
end;

Answer 4

frReport1.FindObject('Memo2').asmemo.text:=edit1.text

Answer 5

樓上的，我是不是應該在程序中還要引用frst的什麼單元啊？我怎麼你說的都不能用呢？

Answer 6

fr_class這是當然用了，但編譯frReport1.FindObject('Memo2').asmemo.text:=edit1.text
的時候提示：[error] unit1.pas[35]:undeclared identifier:'asmemo'
這是為什麼？好急啊

Answer 7

frReport1.FindObject('Memo2').memo.text:=edit1.text我写错了^0^

Answer 8

放在frReport1的onBeforePrint事件里面

Answer 9

改了frReport1.FindObject('Memo2').memo.text:=edit1.text現在提示
[error] unit1.pas[35]:undeclared identifier:'memo'

Answer 10

2.5的可以這樣
   frReport1.FindObject('Memo1').Memo.Text:='你好嗎？';
為什麼3.0的就不行了？
各位幫幫我吧。

Answer 11

>>>>>>>>>TNND絕對正确!!!procedure TForm1.BitBtn2Click(Sender: TObject);
begin
frxReport1.ShowReport();
end;procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  tfrxmemoview(frxReport1.FindObject('Memo1')).Memo.Text:=Edit1.Text;
end;

Answer 12

to : JonnySun() 太謝謝了。