怎样依次勾选复选框？

marygao929

用描述性编程的方法，如下：
set obj_desc = Description.Create
obj_desc("html tag").value = "INPUT"
obj_desc("type").value = "checkbox"
dim allcheckbox,onecheckbox
set allcheckbox = Browser("Browser").Page("Page").ChildObjects(obj_desc)
for each onecheckbox in allcheckbox
  onecheckbox.set "ON"
next
执行到for each onecheckbox in allcheckbox时，报：不支持此属性或方法。

如果用for...next及childitem的方法，
执行到第二次循环时，报：unspecified error

请各位帮忙看看。

[ 本帖最后由 marygao929 于 2007-11-20 21:43 编辑 ]

caodongjian

关注此问题..偶也想知道.

caodongjian

可是是对像名的的重复吧.
我刚刚录制了一下.对像名都不一样.
代码如下:
Browser("xx").Page("xx").WebCheckBox("A").Set "ON"
Browser("xx").Page("xx").WebCheckBox("A_2").Set "ON"
Browser("xx").Page("xx").WebCheckBox("A_3").Set "ON"
Browser("xx").Page("xx").WebCheckBox("A_4").Set "ON"
Browser("xx").Page("xx").WebCheckBox("A_5").Set "ON"

rivermen

dim str

for i=1 to 5
str="A"
if i<>1 then str=str & "_" & i
    Browser("xx").Page("xx").WebCheckBox(str).Set "ON"
next

[ 本帖最后由 rivermen 于 2007-11-20 17:16 编辑 ]

marygao929

我录制时WebCheckBox的名称都一样。

marygao929

我录制时WebCheckBox的名称都一样。

walker1020

改为下面的代码试试：
set obj_desc = Description.Create
obj_desc("html tag").value = "INPUT"
obj_desc("type").value = "checkbox"
dim allcheckbox,onecheckbox
set allcheckbox = Browser("Browser").Page("Page").ChildObjects(obj_desc)
for inter = 0 to allcheckbox.count -1
  allcheckbox(inter).set "ON"
next

shiyi1022

原帖由 walker1020 于 2007-11-20 22:21 发表
改为下面的代码试试：
set obj_desc = Description.Create
obj_desc("html tag").value = "INPUT"
obj_desc("type").value = "checkbox"
dim allcheckbox,onecheckbox
set allcheckbox = Browser("Browser").Pa ...

赞成赞成！！！

sarying

原帖由 marygao929 于 2007-11-20 16:37 发表
用描述性编程的方法，如下：
set obj_desc = Description.Create
obj_desc("html tag").value = "INPUT"
obj_desc("type").value = "checkbox"
dim allcheckbox,onecheckbox
set allcheckbox = Browser("Browse ...

如果用for...next及childitem的方法，
执行到第二次循环时，报：unspecified error
我也碰到过此现象