Question

您好，我遇到了一般运行时错误。这正在使用预加载的下拉列表，在此之前我还有另一个功能可以正常使用。但是当它尝试运行它时，我得到了错误。

我尝试使用不同的属性，例如innertext，html id等。但这会出现相同的错误。

Sub WebList(DropDown)

    Set myPage=Browser("title:=.*").Page("title:=.*")    
    Set myWebList=Description.Create()
    myWebList("micClass").value="WebList"
    Set AllWebList=myPage.ChildObjects(myWebList)
    totalWebList=AllWebList.count()

    For i = 0 To totalWebList
       If AllWebList(i).GetRoProperty("name") = DropDown  Then
           AllWebList(i).select ("GO") 
           wait(3)
           Exit for    
       End If       
   Next

   Set myPage = nothing
   Set myWebList2 = Nothing
   Set AllWebList2 = nothing        
End Sub

我希望选择下拉列表。感谢您的帮助/建议。另外，如果我可以在任何方面进行改进以使其成为动态且经验丰富的编码人员，请提出建议。

Answer 1

您的For循环中有一个错误，如果没有指定名称的列表，您将访问的列表将比实际存在的多。这是由于vbscript中的To是包含性的，并且索引从0开始。如果找到该列表，则代码对我有用。

For循环应为：

For i = 0 to totatlWebList - 1

.GetRoProperty的UFT / QTP常规运行时错误

1 个答案: