First of all I want to thank each one of you for your contributions and then
expose good as I solved the problem in case anyone needs it most.
Dim A
Set oDesc = Description.Create()
oDesc("micclass").value = "WebRadioGroup"
Set oChild = Browser("New Page 1").Page("New Page 1").ChildObjects(oDesc)
allItems = oChild.Count
iItemsCount = Browser("New Page 1").Page("New Page
1").WebRadioGroup("R1").GetRoProperty("items count")
A = (iItemsCount-1)
DataTable("Num_Corrida", dtLocalSheet) = "#"&A
Browser("New Page 1").Page("New Page 1").WebRadioGroup("R1").Select
DataTable("Num_Corrida", dtLocalSheet)
Msgbox iItemsCount
iItemsCount = Browser("New Page 1").Page("New Page
1").WebRadioGroup("R2").GetRoProperty("items count")
A = (iItemsCount-1)
DataTable("Num_Corrida", dtLocalSheet) = "#"&A
Browser("New Page 1").Page("New Page 1").WebRadioGroup("R2").Select
DataTable("Num_Corrida", dtLocalSheet)
Msgbox iItemsCount
Thanks a lot.
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
