F1book添加一个页Sheet,不知道大家是用什么方法,我用F1book1.EditInsertSheet可以添加一页,但是添加完了之后,新加的这页变成了第一页,而且怎么把它付值,例如第一个建的就是页1,然后是页二。
根据相应的名称删除页。要删除页二,按确定,怎么将页二删除???
还有就是将页一中的数据,全部复制到页二中??全部一样??很急,谢谢大家~!~!

解决方案 »

  1.   

    if self.RPTBook1.NumSheets>1 then
              begin
                self.RPTBook1.DeleteSheets(1,self.RPTBook1.NumSheets-1);
                self.RPTBook1.ClearRange(-1,-1,0,0,F1Clearall);
                //self.RPTBook.DeleteSheets(1,self.RPTBook.NumSheets-1);          end;  
    ..............          
              if RecordCount>0 then
                begin
                  First;
                  stno:=2;
                  self.RPTBook1.InsertSheets(1,RecordCount*2);
                  while not eof do
                  begin
                    if RecordCount>1 then
                      self.RPTBook1.SheetName[stno]:='任务单号'+FieldByName('f_fxrw').Value+'的分析报告'
                  end;
                end; 
    ...........................               
                    self.RPTBook1.Sheet:=stno;
                    self.RPTBook1.ShowGridLines:=False;
                    self.RPTBook1.TextRC[2,1]:='任务单号:'+FieldByName('F_FXRW').Value;
      

  2.   

    self.RPTBook1.SheetName[stno]:='任务单号'+FieldByName('f_fxrw').Value+'的分析报告'
    这个方法能给页付值吗?我开始用的是这个方法,stno代表的是索引吗?我用这个方法时出错,编译时没问题,运行时就出错了。提示“参数不正确”之类的错误