|
写了一个函数,用来找到webtable中第3列的值是test1的行号,然后勾选该行前面的复选框, 然后调用该函数,可是执行后,并没有勾选任何复选框。但是不用函数,却可以勾选到要找的复选框。请各位帮忙看看。
Function findtext(text)
Dim i,rows,pages,m,page
set objs=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_6").WebTable("产品编码")
rows=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_6").WebTable("产品编码").rowcount
page=Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_6").WebTable("1页/2页 共39条").GetROProperty("innertext")
pages=Cint(mid(page,11,1))
For m=1 to pages
For i=1 to rows
If trim(objs.getcelldata(i,3))= "text" then
Browser("NYBOSS系统登陆").Page("NYBOSS系统").Frame("result_6").WebCheckBox("index:="&i-1).Set "ON"
Exit for
end if
Next
Next
End Function
然后在脚本中调用该函数: findtext("test1"),执行完这步后,并未勾选任何复选框;
但是如果函数里的text不用参数表示,直接把test1写到函数里面,改为:If trim(objs.getcelldata(i,3))= "test1" then,
然后调用函数时写为: findtext(), 这样却可以勾选上要找的复选框。不知什么原因?
[ 本帖最后由 marygao929 于 2007-11-12 13:09 编辑 ] |
|