代码中的parent有什么用途，编译出错了？请教大家：）

Coffey111111

Dim a
Public Function CheckObjectDesription(parent, descr)
Dim oDesc
' Create description object
Set oDesc = Description.Create()
arProps = Split(descr, ",")
For i = 0 To UBound(arProps)
arProp = Split(arProps(i), ":=")
    If UBound(arProp) = 1 Then
      PropName = Trim(arProp(0))
      PropValue = arProp(1)
      oDesc(PropName).Value = PropValue
    End If
Next

' Get all child objects with the given description
Set children = parent.ChildObjects(oDesc)

If children.Count = 1 Then
CheckObjectDesription = "Object Unique"
msgbox CheckObjectDesription
ElseIf children.Count = 0 Then
CheckObjectDesription = "Object Not Found"
msgbox CheckObjectDesription
Else
CheckObjectDesription = "Object Not Unique"
msgbox CheckObjectDesription
End If
End Function


CheckObjectDesription a,"I,love,you"

大家能帮看看这个代码，我出错了，有提示“缺少对象: 'parent'
Line (17): "Set children = parent.ChildObjects(oDesc)". “
，不能通过？

Coffey111111

谢谢斑竹呀~~

denisye

我只是打个比方.............
你的程序里，我猜把checked:=0这个去掉的话，就会出现Object Not Unique了吧
多思考，多尝试

Coffey111111

Browser("Book a Flight: Mercury").Page("Welcome: Mercury Tours").Check CheckPoint("Welcome: Mercury Tours")
Browser("Book a Flight: Mercury").Page("Welcome: Mercury Tours").WebEdit("userName").Set "Coffey111111"
Browser("Book a Flight: Mercury").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "458a1f324eec5b8516c41afea29f050d7817b1821ab7"
Browser("Book a Flight: Mercury").Page("Welcome: Mercury Tours").Image("Sign-In").Click 23,5
Browser("Book a Flight: Mercury").Page("Find a Flight: Mercury").Check CheckPoint("Find a Flight: Mercury")
Browser("Book a Flight: Mercury").Page("Find a Flight: Mercury").Image("findFlights").Click 32,13
Browser("Book a Flight: Mercury").Page("Select a Flight: Mercury").Check CheckPoint("Select a Flight: Mercury")
Browser("Book a Flight: Mercury").Page("Select a Flight: Mercury").Image("reserveFlights").Click 39,4
Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury_2").Check CheckPoint("Book a Flight: Mercury_2")
Set Bro=Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury_2")
Descr="micclass:=WebCheckBox,checked:=0"
CheckObjectDesription Bro,Descr
Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury_2").WebEdit("passFirst0").Set "Coffey"
Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury_2").WebEdit("passLast0").Set "Coffey"
Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury_2").WebEdit("creditnumber").Set "8888888888888888"
Browser("Book a Flight: Mercury").Page("Book a Flight: Mercury_2").Image("buyFlights").Click 44,12
Browser("Book a Flight: Mercury").Page("Flight Confirmation: Mercury").Check CheckPoint("Flight Confirmation: Mercury")
Browser("Book a Flight: Mercury").Page("Flight Confirmation: Mercury").Image("home").Click
Browser("Book a Flight: Mercury").Page("Welcome: Mercury Tours_2").Check CheckPoint("Welcome: Mercury Tours_2")
Browser("Book a Flight: Mercury").Page("Welcome: Mercury Tours_2").Sync

我这样又试了下，通过了，没有错误，但是程序运行出的结果不是预料中的，是提示 "Object Not Found"，但是实际在Book a Flight: Mercury网页中是有两个WebCheckBox的呀？为什么结果不是"Object Not Unique"呢？请指教~~

Coffey111111

你给的解释能接受，不过你说的一句话不能接受，“你的"I,love,you"让我开心了很久＾＿＾”sdlkfj9
不过还要谢谢斑竹~~sdlkfj3

Coffey111111

Descr="micclass:=WebCheckBox,checked:=0"是什么意思呀？起了什么作用的呢？我在运行你给的代码时也出错了，提示“对象不支持此属性或方法: 'parent.ChildObjects'”，在Line (21): "Set children = parent.ChildObjects(oDesc)". sdlkfj1

denisye

Parent是Object类型

你的调用语句
CheckObjectDesription a,"I,love,you"
两个参数都用得不对

这个函数是用来查看在一个父对象（Parent）中，附合描述（descr）的子对象是否唯一
父对象一般可以是Browser对象、Page对象、WebTable对象等
descr的格式在函数里是规定好的：（你的"I,love,you"让我开心了很久＾＿＾）
“:=”的左边是属性名，右边是属性的值
“,”号是不同属性之间的分隔符
例：如果你想查一个Browser里面有是不是只有一个没有被Checked的WebCheckBox对象
Set Bro=Browser()
Descr="micclass:=WebCheckBox,checked:=0"
CheckObjectDesription(Bro,Descr)

Coffey111111

是在帮助里的函数，函数能运行成功，但是想调用函数就出错了，我不知道那个parent参数是什么类型的？

xiaonan

你从哪里找来的?估计是不完整的吧?