这几天都在研究如何对下拉框中的值进行参数化，因为新手的原因，遇到了很多困难，知识的限制等等，经过了自己的努力和群中朋友的帮忙，终于解决了问题，也学到了很多东西，受益匪浅啊。个人觉得，通过对下拉框中的值的参数化，可以让QTP自动的调用框中的值，自动运行程序，对于有大量数据来说是比较方便，灵活，并节约工作的时间。
Dim id,itemname1,MyArray
For id =0 to 9
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "mercury"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "47cf9c1063f49dee314fdac4c282898774372e5f"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 23,11
itemname1=Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").GetROProperty("all items")'获取下拉框中的所有值
MyArray=Split(itemname1,";",-1,1)'利用 Split 函数从字符串中返回数组。函数对分界符进行文本比较，返回所有的子字符串。
DataTable.SetCurrentRow(id+1)
DataTable.Value("weblist_item",Global)=MyArray(id)
DataTable.GetSheet("Global").SetNextRow '指向新的一行
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("fromPort").Select ("#")& id
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toPort").Select "San Francisco"
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").WebList("toMonth").Select "December"
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Image("findFlights").Click 44,7
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").Image("reserveFlights").Click 75,13
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passFirst0").Set "andycai"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("passLast0").Set "cai"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebEdit("creditnumber").Set "8888888888888888"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").WebCheckBox("ticketLess").Set "ON"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury").Image("buyFlights").Click 50,14
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury").Image("home").Click
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").Sync
Next
但其中有一缺陷：就是下拉框中的值的个数在本例子中无法使用，因为循环是贯穿整个程序，假如使用获取到的下拉框的值的个数，提示错误是:"找不到匹配对象"，所以暂时不知道怎么解决，只能用数字来代替了，如题中：For id =0 to 9