标题: ChildItem使用的疑问。 [打印本页] 作者: wuzhuayu 时间: 2007-11-22 12:03 标题: ChildItem使用的疑问。 自己写了一段代码，目的是在指定的Cell中点击一个链接。
Set oDesc = Description.Create()
oDesc("micclass").value = "WebTable"
Set TableList = Browser("xxxx").Page("xxxxx").Frame("foldlist_setting").ChildObjects(oDesc)
TableCount = TableList.count()
For i = 0 To TableCount
If Instr(TableList(i).GetCellData(2,1),"收件箱") Then
set l = TableList(i).ChildItem(2,1,"Link",0) ---------------------------这一步有问题。
l.click
End If
Next
set l = TableList(i).ChildItem(2,1,"Link",0) 这一步在获取链接的时候有问题。
但是我使用TableList(i).ChildItemCount(2,1,"Link") 结果是1，说明能够找到1个内容为“收件箱”的Link的，但是ChildItem获取出来的对象却不行。
想不明白啊，请大家帮忙看看。作者: dog487 时间: 2007-11-22 12:10
关注作者: shaofei19820625 时间: 2007-11-22 13:20
报什么错误?作者: marygao929 时间: 2007-11-22 13:56
1.If Instr(TableList(i).GetCellData(2,1),"收件箱") Then
这句改成： If Instr(TableList(i).GetCellData(2,1),"收件箱")<>0 Then
2.For i = 0 To TableCount
这句改成：For i = 0 To TableCount-1作者: wuzhuayu 时间: 2007-11-22 14:52
marygao说的两个问题，只是小细节，不会影响到结果的，呵呵。
set l = TableList(i).ChildItem(2,1,"Link",0) 在调试中发现，执行到这一句，不会报错，报错的是下一句 l.click，提示，对象不支持此属性或方法。
因此我觉得，TableList(i).ChildItem(2,1,"Link",0) 这里使用ChildItem根本没有取到link对象。作者: sarying 时间: 2007-11-22 15:17
cell里面还有其它element没，尝试下能不能输出你得到的这个element的某个属性看看！作者: marygao929 时间: 2007-11-22 15:22
1. set l = TableList(i).ChildItem(2,1,"Link",0)
l.click
改为
dim objlk
set objlk=TableList(i).ChildItem(2,1,"Link",0)
objlk.click