如何对radio button进行参数化选择

angelia_liu · 发表于 2008-10-14 15:47:06

在用Mecury的自带网站订飞机票时,我想对航班的选择进行参数化,就是每次运行时选择不同的航班.
请问如何对radio button进行参数化设置呀?
请高人指点

angelia_liu · 发表于 2008-10-14 15:49:16

我尝试了用网上的方法:
ItemCount=Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebTable("DEPART").RowCount
MsgBox(ItemCount)
SelectItem=RandomNumber(0,ItemCount)
'Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select SelectItem
但是不对,返回的tiemcount为10.

angelia_liu · 发表于 2008-10-14 15:50:53

我也试了如下的方法,也不行,运行出错
Set d_RadioCheck=Description.Create()
      d_RadioCheck("micclass").Value="WebRadioGroup"
Set all_RadioCheck=Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").ChildObjects(d_RadioCheck)
               n=all_RadioCheck.Count()
   MsgBox (n)
            For i=0 to n-1
                  all_RadioCheck(i).Set "ON"
            Next
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("index=:"&Datatable(1,1))
all_RadioCheck.set "ON"

angelia_liu · 发表于 2008-10-15 14:29:43

为什么没高人来指点呀

ziheng198688 · 发表于 2008-10-15 15:01:16

ItemCount=Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").GetRoProperty("items count")
MsgBox(ItemCount)
SelectItem=RandomNumber(0,ItemCount-1)
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select IelectItem

zhuyuancan · 发表于 2008-10-15 15:05:14

个人思路供参考：
RadioItems = browser("Select a Flight: Mercury").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").GetROProperty("all items")
RadioContent = split(RadioItems,";")
x = randomnumber(0,ubound(RadioContent))
Browser("Select a Flight: Mercury").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select RadioContent(x)

angelia_liu · 发表于 2008-10-15 16:15:45

用这个方法是可以获得radio button的个数,但是很奇怪的是为什么当运行到Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select IelectItem就
会出错呢?错误提示是:Cannot identify the specified item of the outFlight object. Confirm that the specified item is included in the object's item collection.
请高人指点.

angelia_liu · 发表于 2008-10-15 17:22:35

谢谢这位大侠,问题解决了.

angelia_liu · 发表于 2008-10-15 17:40:42

现在出现了解另外一个问题,就是后面我应该怎么去验证选择的radio button是对的呢?
我想用Insert output value,但是不行.
也就是我应该怎么利用在"Select a Flight: Mercury"网页上选择的航班(radio button)去验证"Book a Flight: Mercury"上的航班呢?有解决的方法吗?