QTP之下拉列表单选框…

==下拉列表框的参数化==

1．通过下拉框对应项的实际值查找
       Browser(“****”).Page(“****”).WebList(“****”).Select “****”
      将select“****”的值参数化，可以将下拉框中的每一个选项都写到数据表中
2．通过下拉框对应项的索引号查找 Browser(“****”).Page(“****”).WebList(“****”).Select “#”&IndexNum
       比如说下拉框有5个选项
       IndexNum = RandomNumber(1,5)   以上代码生成1到5之间的随机数，5是上界，1是下界。

Dim s,Get_Ran

s=Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_4").Frame("_mframe").WebList("province").GetROProperty("items count")

Randomize

Get_Ran=RandomNumber (0,s-1)

Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_4").Frame("_mframe").WebList("province").Select "#"&Get_Ran

==单选按钮的参数化==

单选按钮参数化与下拉列表参数化相同。
1．通过单选按钮对应项的实际值查找,以蓝派中国的舱位等级为例

--------------------------------------
Browser("蓝派中国lanpay.cn").Page("蓝派中国lanpay.cn_2").WebRadioGroup("BUNK_GRADE").Select DataTable("舱位", dtLocalSheet)

--------------------------------------
将select“****”的值参数化，可以将下拉框中的每一个选项都写到数据表中

2．通过单选按钮对应项的索引号查找
1 ‘代表选择的是公务舱，索引号以0开始

--------------------------------------

Browser("蓝派中国lanpay.cn").Page("蓝派中国lanpay.cn_2").WebRadioGroup("BUNK_GRADE").Select "#" & 1
--------------------------------------

==链接的参数化==

下面的例子是根据订单号，点击后面的操作链接。

例如我们要操作订单11072822830300001 的付款，因为我们只知道订单号，所以根据订单号先找到行，然后再通过行列找到对应的链接，进行点击。

Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_2").Link("交易管理").Click
Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_2").Frame("_mframe").WebTable("创建时间").Output CheckPoint("创建时间_3")
Dim row
‘获取交易号所在的行
row = Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_2").Frame("_mframe").WebTable("创建时间").GetRowWithCellText(datatable.Value ("交易号", "Action1"), 3,2)
msgbox row
Dim aa,bb,cc,dd
‘获取表中的行数
aa=Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_2").Frame("_mframe").WebTable("创建时间").RowCount   ‘列表的总行数
bb="09051316080300008"
For i =2 to aa
   ‘循环第三列所有的行，直到找到订单号所在的行
     cc= Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_2").Frame("_mframe").WebTable("创建时间").GetCellData(i,3)
     msgbox cc
    If (bb=cc) Then
       msgbox(bb)
    dd=i
Exit for
End If
next
msgbox dd    ‘这就是订单09051316080300008所在的行
‘点击指定订单号所对应的链接
Browser("LanPay瑞宝支付|安全简单快捷顺畅").Page("LanPay瑞宝支付|安全简单快捷顺畅_2").Frame("_mframe").WebTable("创建时间").ChildItem(dd,10,"Link",0).Click    ‘注意ChildItem中的参数Link首字母必须大写