随机选择下拉列表的问题，麻烦帮忙看看

wusonglin2005

Function Get_Ran(i)
    Randomize
    Get_Ran=RandomNumber (0,i)
End Function
Get_Count=Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebList("street").GetROProperty("items count")
Ran_Number=Get_Ran(Get_Count-1)
MsgBox Ran_Number
Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebList("street").Select "#Ran_Number"
Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebButton("查询").Click

？？？？？

wusonglin2005

谁能帮忙解答一下

TIB

WebList("street").Select "#Ran_Number"
改成
WebList("street").Select  Ran_Number

superliming

Browser("广州市国土资源及房屋管理局房屋管理系统二期").Page("广州市国土资源及房屋管理局房屋管理系统二期").Frame("mainFrame").WebList("street").Select "#“&Ran_Numbe
应该改成这样的

wusonglin2005

谢谢解答！