执行RvProject1.Open时提示:the following reporting does not exist "",是怎么回事?

解决方案 »

  1.   

    我的代码是这样的
    implementationuses  RVClass, RVProj, RVCsStd;{$R *.dfm}procedure Tfrm_edit.BitBtn_printClick(Sender: TObject);
    var
     mypage: TRavePage;
     mytxt: travetext;
    begin
     rvproject1.Open;
     with rvproject1.ProjMan do
     begin
      mypage:=findravecomponent('report1.page1',nil) as travepage;
      mytxt:=FindRaveComponent('txt_dh',mypage) as travetext;
      mytxt.Text:='NO.:'+edit_no.Text;
     end; { with }
     rvproject1.ExecuteReport('report1');
     rvproject1.Close;
    end;窗体上有 TEdit TStringGrid TBitBtn TRvProject 等控件