这个句子怎么msgbox行数出来

jkm168

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

jkm168

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
这样就可以出来了

黑羽祭

先看是什么错误

jkm168

效果没出来，就看到一堆错误

黑羽祭

回复 3# jkm168


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

黑羽祭

回复 3# jkm168


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

1. 
   
2. set table=browser("micclass:=browser").page("micclass:=page").webtable("innertext:=XXX.*")
   
3. i=table.rowcount
   
4. for a=1 to i
   
5.      for b=1 to table.columncount(a)
   
6.      status=table.childltem(a,b,"webedlt",0").exlst
   
7. 
   
8.         if trim(status.getroproperty("value"))=trim("XXXX") then
   
9.             getrows=a
   
10.              msgbox getrows
    
11.      end if
    
12.      next
    
13. next

复制代码

jkm168

打不出来 getrows这个值

黑羽祭

没看明白，你这不是打印了嘛