QTP使用技巧(4)

　　'msgbox j If instr("123456789"，j)>0 Then MaxPage = j 'msgbox MaxPage Exit function End If i=i-1 Wend End Function Dim trowcount，maxp trowcount = Browser("Login")。Page("Page")。Frame("main_8")。WebTable("开课代码")。RowCount msgbox "Rowcount： "&trowcount Nowout = Browser("Login")。Page("Page")。Frame("main_8")。WebTable("开课代码")。 GetCellData(trowcount，1)

　　Nowout = trim(Nowout)

　　maxp = MaxPage(Nowout)

　　msgbox "max page： "& maxp Dim nowPage，checkid For nowPage = 1 to maxp If finded Then Exit for End If ' link to the 当前所需page If nowpage>1 Then Browser("Login")。Page("Page")。Frame("main_8")。Link("[2]")。SetTOProperty "Text"，"["&nowpage&"]" Browser("Login")。Page("Page")。Frame("main_8")。Link("[2]")。Click Browser("Login")。Page("Page")。Sync end if ' Get the rowcount of table in now page trowcount = Browser("Login")。Page("Page")。

　　Frame("main_8")。WebTable("开课代码")。RowCount msgbox "Rowcount： "&trowcount 'link every record in the table of the page for i = 2 to trowcount - 2 Nowout = Browser

原文转自：http://www.uml.org.cn/Test/200905216.asp