|
本帖最后由 黑羽祭 于 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 "中医院"
但是我想通过函数的形式怎么样修改呀 |
|