◆fastreport4使用有关问题

◆fastreport4使用问题◆
在fastreport4中设计报表，在masterdata放了个memo1，在memo1里放了个变量[s1]，在报表的OnGetValue事件中我会写了，现在我想在memo1的OnBeforePrint事件中给s1赋值，不知改如何写？

fastreport的OnGetValue 事件代码如下（测试通过）：

Delphi(Pascal) code

procedure TForm1.frxReport1GetValue(const VarName: String; var Value: Variant);begin  if CompareText(VarName, 's1') = 0 then Value := 1;end;

报表设计中memo1的OnBeforePrint事件代码（测试不通过）：

Delphi(Pascal) code

procedure Memo1OnBeforePrint(Sender: TfrxComponent);begin  s1 := 1;                                        end;

[解决办法]
memo1.text:='1'
[解决办法]
 
这样就可以了
if (sender as TfrxReportComponent ).Name ='Memo1' then
(sender as TfrxpictureView).Memo.text:='1';
[解决办法]

探讨

这样就可以了
if (sender as TfrxReportComponent ).Name ='Memo1' then
(sender as TfrxMemoView).Memo.text:='1';

[解决办法]
if (sender as TfrxReportComponent ).Name ='Memo1' then
(sender as TfrxMemoView).text:='1';
这样也可以

查看更多 下一篇