ChildObjects和webTable的使用

dim  maxCodeRow,maxCode,temp,webTableIndex
Dim obj
maxCode=0
Set ōDesc = Descrīption.Create()
oDesc("micclass").Value = "WebTable"

'获得Browser("test").Page("test").Frame("mainFrame")下所有webTable
Set Lists =Browser("test").Page("test").Frame("mainFrame").ChildObjects(oDesc)

'获得webTable的总数
NumberOfLists = Lists.Count()

'对text ="XXX"的webTable进行操作
For listIndex = 0 To NumberOfLists - 1
 Set ōbj=Lists(listIndex)
 text=obj.GetCellData(1,1)
 if( text ="XXX") then
   num=obj.RowCount'获得这个webTable的行数
   For  webTableIndex=2 to num'找出自己想要操作的行号，在这里取得编码为最大的行号
    temp=obj.GetCellData(webTableIndex,1)
    if( temp > maxCode  ) then
    maxCode=temp
    maxCodeRow=webTableIndex
    end if
   Next
   obj.childItem(maxCodeRow,9,"Link",0).Click'点击该行的“删除”连接
   Browser("test").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
   exit for
 end if
Next