51Testing软件测试论坛

标题: 在for循环中如何执行删除 [打印本页]

作者: endision2002 时间: 2011-10-8 09:43
标题: 在for循环中如何执行删除
Dim arry()
'定义一个Link的description对象
Set objDes=description.Create()

objDes("micclass").value="WebElement"

objDes("html tag").value="LI"

objDes("innertext").value="endision2002"

'定义一个WebElement删除的description对象
Set myDes=Description.Create()

myDes("micclass").value="WebElement"

myDes("html tag").value="SPAN"

Set objEles=Browser("CreationTime:=0").Page("Index:=0").WebElement("class:=cl").ChildObjects(objDes)

'获取数量
intCount= objEles.count-1

ReDim arry(intCount)

If intCount >= 0 Then

For i=0 to intCount
Set objSpn=objEles(i).ChildObjects(myDes)
'点击删除
objSpn(0).click
Browser("CreationTime:=0").Page("Index:=0").WebTable("class:=boxy-wrapper fixed").Link("text:=确定").Click
Next

End If

执行for循环到第二条时报错，[attach]75530[/attach]，不知道如何处理好。

作者: shotstar 时间: 2011-10-9 09:18
个人推测是不是你在第一个删除之后页面发生了变化了，导致原本第二个对象识别不到了？有个页面截图比较好。

作者: haihai1005 时间: 2011-10-9 10:53
("Index:=0) 个人感觉不能找这个来判断！比如你删除了Index:=0 现在要删除Index:=1 但是QTP还是回去找Index:=0)的元素！找不到就报错了

作者: softCore 时间: 2011-10-9 15:15
Set objEles=Browser("CreationTime:=0").Page("Index:=0").WebElement("class:=cl").ChildObjects(objDes)
Set objSpn=objEles(i).ChildObjects(myDes)
感觉这2句有点问题，你确认childobject.childobject是存在的吗？

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)