请问： （没有数据库，只是用 RvCustomConnection） 如何将程序中 Memo 组件的内容传递到 Rave Report 的 Memo 组件中。 让每次报表中 Memo 的内容可以修改。 谢！ 發表人 - fly 於 2003/06/26 11:34:35

在TRvSystem的OnBeforePrint事件去找到你的TRaveMemo元件

procedure TForm1.RvSystem1BeforePrint(Sender: TObject);
var
  i,j:integer;
  ARP:TRavePage;
begin
  for i:=0 to RvProject.ProjMan.ActiveReport.ChildCount-1 do
  begin
    if RvProject.ProjMan.ActiveReport.Child[i] is TRavePage then
    begin
      ARP:=TRavePage(RvProject.ProjMan.ActiveReport.Child[i]);
      for j:=0 to ARP.ChildCount-1 do
      begin
        if ARP.Child[j] is TRaveMemo then 
          TRaveMemo(ARP.Child[j]).Text:=Memo1.Lines.Text;
      end;
    end;
  end;
end;

====================== 久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

首先非常感谢 mustapha.wang 的帮助。 根据 mustapha.wang 的提示，我用了另一种的方法实现。 请参考： uses   RVClass, RVProj, RVCsStd;    var   mypage : TRavePage;   mymemo : TRaveMemo;    begin   RvProject1.Open;   with RvProject1.ProjMan do begin     mypage := FindRaveCompnonet('Report1.Page1', nil) as TRavePage;     myMemo := FindRaveComponent('Memo1', mypage) as TRaveText; myMemo.Text := TMemo1.Lines.Text; end; {with} end; 發表人 - fly 於 2003/06/26 23:18:53 發表人 - fly 於 2003/06/26 23:20:03

Thanks for your help, mustapha.wang    I got another way to do it.     

uses
  RVClass, RVProj, RVCsStd;    var
  MyPage : TRavePage;
  MyMemo : TRaveMemo;    begin
  RvProject1.Open;
  with RvProject1.ProjMan do begin
    MyPage := FindRaveComponent('Report1.Page1', nil) as TRavePage;
    MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
    MyMemo.Text := TMemo1.Lines.Text; 
    end; {with}
end;

發表人 - fly 於 2003/06/26 23:43:24

請注意: 1. 問題已獲得解答,請給予答題者分數. 2. 新的問題請開立新的post. 謝謝合作. Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....