51Testing软件测试论坛

标题: 求各位测试达人帮我查看以下代码运行时为什么会报错？ [打印本页]

作者: arron310 时间: 2013-2-21 10:31
标题: 求各位测试达人帮我查看以下代码运行时为什么会报错？
我是想用描述性编程，找出页面中所有的编辑框，然后用遍历的方法将编辑框一一赋值。但是运行到第二个Set时就报错“General run error”

SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE"

Set allWebEdit= Description.Create()
allWebEdit("micClass").Value="WebEdit"

Set allWebEdits=Browser("micClass:=Browser").Page("micClass:=Page").ChildObjects(allWebEdit)

For i=1 to allWebEdits.count-1
Set WebEdit = Description.Create()
WebEdit =allWebEdit.item(i)

Browser("micClass:=Browser").Page("micClass:=Page").WebEdit(WebEdit).Set "company310"

Next

Set allWebEdit=Nothing
Set allWebEdits=Nothing
Set WebEdit=Nothing

作者: feiyunkai 时间: 2013-2-21 11:39
本帖最后由 feiyunkai 于 2013-2-21 11:43 编辑

回复 1# arron310
循环体改为：
For i=0 to allWebEdits.count-1
allWebEdits.item(i).Set "company310"
Next

作者: 黑羽祭 时间: 2013-2-21 13:38
回复 1# arron310

看起来没什么问题你把allWebEdit("micClass").Value="WebEdit" 这句里面的micClass改成micclass试试

作者: arron310 时间: 2013-2-21 17:14
回复 2# feiyunkai

谢谢！可以成功运行了！

作者: arron310 时间: 2013-2-21 17:16
回复 3# 黑羽祭

修改后，这句不报错了，但是运行到循环体中的set时报错“General run error”.

作者: 黑羽祭 时间: 2013-2-22 08:53
回复 5# arron310

micClass都改成micclass，注意大小写

作者: arron310 时间: 2013-2-22 10:46
回复 6# 黑羽祭

还是报一样的错。

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