UFT / QTP General Ошибка времени выполнения с .GetRoProperty - PullRequest
Новая
       14

UFT / QTP General Ошибка времени выполнения с .GetRoProperty

0 голосов
/ 05 февраля 2019

Здравствуйте, я получаю общую ошибку во время выполнения.Это работает с предварительно загруженными выпадающими меню, и у меня есть еще одна функция, которая прекрасно работает.но когда он пытается запустить это, я получаю ошибку.

Я пробовал с различными свойствами, такими как 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

Я хочу, чтобы раскрывающийся список был выбран.Спасибо за любую помощь / предложение.Кроме того, если я могу улучшить какие-либо строки, чтобы сделать это для динамичного и опытного программиста, пожалуйста, предложите их.

1 Ответ

0 голосов
/ 05 февраля 2019

В вашем цикле For есть ошибка, если нет списков с указанным именем, вы получите доступ к одному больше, чем реально существует.Это связано с тем, что To в vbscript включительно и индекс начинается с 0.Если список найден, код работает для меня.

Цикл For должен быть: 

For i = 0 to totatlWebList - 1
...