51Testing软件测试论坛

标题: QTP 中weblist的select问题 [打印本页]

作者: nihaoyijing 时间: 2013-3-22 09:59
标题: QTP 中weblist的select问题
本帖最后由黑羽祭于 2013-3-22 12:16 编辑

以下是新建的窗口：

Public  Function WriteValue (page,elementType,i,val)
If  elementType = "WebEdit" Then
   Set oDesc = Description.Create()
   oDesc("micclass").value="WebEdit"
   Set we=Browser("Browser").Page(page).Frame("iframe1").ChildObjects(oDesc)
   we(i).set val
   Set we=Browser("Browser").Page(page).Frame("iframe1").ChildObjects(oDesc)
End If
   If  elementType = "WebList" Then
   Set oDesc = Description.Create()
   oDesc("micclass").value="WebList"
   Set we=Browser("Browser").Page(page).Frame("iframe1").ChildObjects(oDesc)
   we(i).select "#"&val
End If
End Function

------------------------------------
'新建科室
Call WriteValue("Page_3","WebEdit",1,"测试")
wait 3
Call WriteValue("Page_3","WebEdit",2,"测试")
wait 3
Call WriteValue("Page_3","WebList",0,0)       -------------运行到这一行时，提示
we(i).select "#"&val 有问题，请问我应该怎么改，是改这个call语句，还是改we(i).select "#"&val
其实最简单的方便，我可以将Call WriteValue("Page_3","WebList",0,0) 改为：Browser("Browser").Page("Page_3").Frame("iframe1").WebList("ctl00$MainContent$ddlHostCode").Select "中医院"
但是我想通过函数的形式怎么样修改呀

作者: lgh75560 时间: 2013-3-22 14:24
不用#的吧
Selecet 数字就行了

作者: SexyCat_1113 时间: 2013-3-24 18:49
回复 2# lgh75560
#+数字是选index，，，

作者: nihaoyijing 时间: 2013-4-2 16:30
回复 3# SexyCat_1113

请问我具体应该怎么改呢？

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)