QTP保存失败报错

shiegg

在添加某些代码的时候 如
Set desc=Description.Create
      
desc("class").value="cursor_hand dept"

      
set WebNodObj=Browser("Creationtime:=0").Page("index:=0").ChildObjects(desc)
               
n=WebNodObj.count
   

      
For i=0 to n-1
             
          set t=WebNodObj(i).object
         
'  msgbox DescribeResult(Err.Number)
               
Objtitle=t.title
               
'msgbox   Objtitle
                   
If   Objtitle=DepName Then
                     
         Actual="新建成功"
                                         
         Exit For
                          
         else
                                
         Actual="新建失败"
                  
          End If
     
          Next
   
End If


点击保存会报错
This operation cannot be performed.For further help please contact support

删除代码就可以成功保存