51Testing软件测试论坛

标题: 这个句子怎么msgbox行数出来 [打印本页]

作者: jkm168 时间: 2013-1-7 10:53
标题: 这个句子怎么msgbox行数出来
on error resume next
set table=browser("micclass:=browser").page("micclass:=page").webtable("innertext:=XXX.*")
i=table.rowcount
for a=1 to i
   for b=1 to table.columncount(a)
   status=table.childltem(a,b,"webedlt",0").exlst
   if err.number=0 then
      if trim(status.getroproperty("value"))=trim("XXXX") then
         getrows=a
         msgbox getrows
      end if
   end if
err.clear
   next
next

作者: 黑羽祭 时间: 2013-1-7 10:58
没看明白，你这不是打印了嘛

作者: jkm168 时间: 2013-1-7 11:01
打不出来 getrows这个值

作者: 黑羽祭 时间: 2013-1-7 11:08
回复 3# jkm168

你吧on error去掉，看报什么错吧。

set table=browser("micclass:=browser").page("micclass:=page").webtable("innertext:=XXX.*")
i=table.rowcount
for a=1 to i
for b=1 to table.columncount(a)
status=table.childltem(a,b,"webedlt",0").exlst
if trim(status.getroproperty("value"))=trim("XXXX") then
getrows=a
msgbox getrows
end if
next
next

复制代码

作者: 黑羽祭 时间: 2013-1-7 11:10
回复 3# jkm168

你这里面用了好多的判断条件，导致msgbox打印不出来有很多可能，调试的时候，尽量少用那么多判断吧，要么你Debug一行行走，看下是哪个条件影响了msgbox打印。定位一下问题先。

作者: jkm168 时间: 2013-1-7 11:40
效果没出来，就看到一堆错误

作者: 黑羽祭 时间: 2013-1-7 11:49
先看是什么错误

作者: jkm168 时间: 2013-1-7 12:01
dim getrows
on error resume next
set table=browser("micclass:=browser").page("micclass:=page").webtable("innertext:=XXX.*")
i=table.rowcount
for a=1 to i
   for b=1 to table.columncount(a)
   status=table.childltem(a,b,"webedlt",0").exlst
   if err.number=0 then
      if trim(status.getroproperty("value"))=trim("XXXX") then
         getrows=a
         msgbox getrows
      end if
   end if
err.clear
   next
next
这样就可以出来了

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)