如何点选webtable中需要的某一行

function  finddata(brws,page,frame,webtb,text,webelm,link)
Dim  i,rows,k,pageno,m,pages,pagecount
set ōbjs=Browser(brws).Page(page).Frame(frame).WebTable(webtb)
rows=objs.rowcount
pages=objs.getcelldata(rows-1,1)
If    mid(pages,4,1)<>"条"  Then
       pageno=cint(mid(pages,8,1))
    pagecount=cint(mid(pages,12,1))
    else
    pageno=cint(mid(pages,7,1))
    pagecount=cint(mid(pages,11,1))
End If
found=false
For m=1 to pagecount
        For i=1 to rows
        If trim(objs.getcelldata(i,1))=text  Then
        set ōbj=Browser(brws).Page(page).Frame(frame).WebElement("name:="&webelm,"innertext:="&text)
        obj.click
  found=true
     Exit for
        End If
        next    
   if  m=2  and found=false Then
              If pageno=1  Then
              Browser(brws).Page(page).Frame(frame).Link(link).Click
      rowno=objs.rowcount
     elseif  pageno=2 then
           rowno=objs.rowcount
        End If
    For i=1 to rowno
             If trim(objs.getcelldata(i,1))=text  Then
                set ōbj=Browser(brws).Page(page).Frame(frame).WebElement("name:="&webelm,"innertext:="&text)
          obj.click
     found=true
          Exit for
           end if
          Next
    end if       
Next
end function

finddata "xxx管理系统","xxx管理系统","main","节目名称","test","增加","下一页"