怎样实现翻页勾选需要的复选框

翻页勾选复选框
Function  findtext(bws,page,frame,wbtable,text)
Dim  i,rows,pages,m,pagen,pageno,found,j
set ōbjs=Browser(bws).Page(page).Frame(frame).WebTable(wbtable)
rows=Browser(bws).Page(page).Frame(frame).WebTable(wbtable).rowcount
pagen=objs.childitem(rows-1,1,"WebElement",0).getroproperty("innertext")
pageno=cint(mid(pagen,1,1))
pages=Cint(mid(pagen,4,1))
found=false
For m=1 to pages
 If  m=1  Then
         If pageno=1  Then
          rowno=Browser(bws).Page(page).Frame(frame).WebTable(wbtable).rowcount
   elseif  pageno=2 then
   Browser(bws).Page(page).Frame(frame).WebButton("上页").Click
         rowno=Browser(bws).Page(page).Frame(frame).WebTable(wbtable).rowcount
      End If
        For i=1 to rowno
         If  trim(objs.getcelldata(i,2))=text then  
    set ōbj= Browser(bws).Page(page).Frame(frame).WebCheckBox("index:="&i-1)
    obj.Set "ON"
    found=true
     Exit for
       end if
       Next
    End If
       if  m=2  and found=false Then
              If pageno=1  Then   
              Browser(bws).Page(page).Frame(frame).WebButton("下页").Click
    rowno=Browser(bws).Page(page).Frame(frame).WebTable(wbtable).rowcount
   elseif  pageno=2  then
        rowno=Browser(bws).Page(page).Frame(frame).WebTable(wbtable).rowcount
   End If
            For i=1 to rowno
           If  trim(objs.getcelldata(i,2))=text then    
     set ōbj= Browser(bws).Page(page).Frame(frame).WebCheckBox("index:="&i-1)
       obj.Set "ON"
        Exit for
          end if
          Next
    end if       
Next
End Function

findtext "nyboss系统","nyboss系统","resultiframe","用户编码",usrcode