arron310 发表于 2013-2-21 10:31:25

求各位测试达人帮我查看以下代码运行时为什么会报错？

我是想用描述性编程，找出页面中所有的编辑框，然后用遍历的方法将编辑框一一赋值。但是运行到第二个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=1to 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:49

本帖最后由 feiyunkai 于 2013-2-21 11:43 编辑

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

黑羽祭 发表于 2013-2-21 13:38:11

回复 1# arron310


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

arron310 发表于 2013-2-21 17:14:13

回复 2# feiyunkai


谢谢！可以成功运行了！

arron310 发表于 2013-2-21 17:16:38

回复 3# 黑羽祭

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

黑羽祭 发表于 2013-2-22 08:53:59

回复 5# arron310


    micClass都改成micclass，注意大小写

arron310 发表于 2013-2-22 10:46:36

回复 6# 黑羽祭


还是报一样的错。
页: [1]
查看完整版本: 求各位测试达人帮我查看以下代码运行时为什么会报错？