随机选择下拉列表中的值

Paypal系统自动化测试脚本：

第一种方法：不需要从datatable中获取值，而是用select "#"&num获取下拉框中的内容。

实例：

第二种方法：

a = Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
Window("Flight Reservation").WinComboBox("Fly From:").Select RandomNumber(0,a-1)

 

第三种方法：

Dim a,b
Function getlist(i)
   Randomize
   getlist= RandomNumber(0,i)
End Function
a = Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")
b = getlist(a -1)
Window("Flight Reservation").WinComboBox("Fly From:").Select b

第四种方法：在datatable中输入下拉框中的内容，通过访问datatable获取下拉列表的内容。

DataTable中表名为：list，列名为：listContent

Dim i,content

i = RandomNumber(1,5)

content = DataTable.GetSheet("list").GetParameter("listContent").valueByRow(i)

'msgbox(content)

Browser("任务分配").Page("任务分配").WebList("html id:=BulkNumber").Select(content)