怎样给用Rave设计好的RvProject1\report1\page1\中的Text Component的text属性赋值?在线等待...立即结贴!

Question

怎样给用Rave设计好的RvProject1\report1\page1\中的Text Component的text属性赋值?在线等待...立即结贴!

Answer 1

var
  RvPage:TRavePage;
  RvText:TRaveText;
  sTxt:string;RvText := TRaveText(ProjMan.FindRaveComponent(sTxt,RvPage));
RvText.Text := 'X';
ExecuteReport('Report2');
Close;

Answer 2

不好意思，刚才少贴了一点。var
  RvPage:TRavePage;
  RvText:TRaveText;
  sTxt:string;  with RvPrj do
  begin
    ProjectFile := sAppFilePath + 'report/company/companyfreight.rav';
    Open;
    RvPage := TRavePage(ProjMan.FindRaveComponent('Report2.MainPage',nil));
    sTxt := '啊啊啊啊';    RvText := TRaveText(ProjMan.FindRaveComponent(sTxt,RvPage));
    RvText.Text := 'X';
    ExecuteReport('Report2');
    Close;
    Execute;
  end;

Answer 3

不好意思，刚才又少贴了一点说明。
呵呵var
  RvPage:TRavePage;
  RvText:TRaveText;
  sTxt:string;  with RvPrj do
  begin
    ProjectFile := sAppFilePath + 'report/company/companyfreight.rav';
    Open;
    RvPage := TRavePage(ProjMan.FindRaveComponent('Report2.MainPage',nil));
    sTxt := 'EditName';//Rave中控件名称    RvText := TRaveText(ProjMan.FindRaveComponent(sTxt,RvPage));
    RvText.Text := 'X';
    ExecuteReport('Report2');
    Close;
    Execute;
  end;