dim s
s=browser("系统登录").Page("bidlinkEPSIII").Frame("main_frame_right_9").WebTable("采购目录").RowCount
datatable.Value("采购目录条数","采购目录维护")=s //检测数据是否正确
Set Link=Browser("系统登录").Page("bidlinkEPSIII").Frame("main_frame_right_9").WebTable("采购目录").ChildItem(s,2,"link",0)
link.click
可是在
Set Link=Browser("系统登录").Page("bidlinkEPSIII").Frame("main_frame_right_9").WebTable("采购目录").ChildItem(s,2,"link",0)
这句话总是不能正确执行，请问是为什么呢，执行中报错
webtable我已经手动填加到对象库里面去了，打.以后，后面的方法都会自动出来
可是
link打.后，后面就没有click的方法
我选定一个webtable作为对象，然后set了url href的值，可是都无法判断出来，不太明白
高手出来指点一二吧
[ 本帖最后由 小澈 于 2006-4-30 17:02 编辑 ]作者: Hunter 时间: 2006-5-10 14:20
看看这么做可不可以？如下：
这么做的前提是增加link后，已存在的link的html id不发生变化。
假设你列表中已有2个link ，名称都是“钢材”。此时你需要新增一个名称为“钢材”的link，然后点击他，可以吗？
首先，把列表中存在的两个“钢材”的html id取出来，如下：
（遍历表格的该列,取出所有“钢材”的html id值，并记录下来。）
dim htmlValue,linkName,temp,targetName,i
targetName = "钢材"
rows = Browser().page().WebTable().GetRowCount
for i=1 to rows
linkName = Browser().page().WebTable().ChildItem(i,1,"Link",0).GetRoProperty ("name")
if linkNmae = targetName then
temp = Browser().page().WebTable().ChildItem(i,1,"Link",0).GetRoProperty ("html id") // 我假设在第1列了，呵呵
htmlValue = htmlValue&temp
end if
Enf For
//此时手动增加一个“钢材”连接
rows = Browser().page().WebTable().GetRowCount
for i=1 to rows
linkName = Browser().page().WebTable().ChildItem(i,1,"Link",0).GetRoProperty ("name")
if linkNmae = targetName then
temp = Browser().page().WebTable().ChildItem(i,1,"Link",0).GetRoProperty ("html id")
if instrRev(htmlValue,temp)=0 then
Browser().page().WebTable().ChildItem(i,1,"Link",0).Click
Browser().page().sync
Exit For
end if
end if
end for