Dim i,rows
set objs=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_6").WebTable("产品编码")
rows=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_6").WebTable("产品编码").rowcount
For i=1 to rows
If trim(objs.getcelldata(i,3))= "test1" then
Exit for
else
i = i + 1
end if
Next
msgbox "pass"&"rows is:"&rows&"i:"&i