DataTable("Num_Corrida", dtLocalSheet) = "#"&A
what is #, in this line?
Regards,
kreddy,
On Tue, Jan 19, 2010 at 9:56 PM, Diego Diego <[email protected]> wrote:
> 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]<mercuryqtp%[email protected]>
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
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
