|
6#
楼主 |
发表于 2007-10-26 13:57:11
|
只看该作者
就是:Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result") 中Frame下的WebTable, name是:‘产品编码’
请看下面的脚本:
Dim counter,webobj,i,webtbl
Set webtbl=description.Create
webtbl("micclass").value="WebTable"
webtbl("html tag").value="TABLE"
set webobj=Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").ChildObjects(webtbl)
i = webobj.Count
For counter = 1 To i
text = webobj.GetCellData(counter,2)
If (text = "同方IC卡") Then
counter = counter - 1
Exit For
End If
Next
Browser("NYBOSS系统登陆").Window("-- 网页对话框").Page("产品选择").Frame("result").WebCheckBox("name:=PRODUCT_CD_MUTI_2","index:="&counter).Set "ON"
现在是说:不支持:GetCellData,如何实现呢?多谢! |
|