高手请进，这段代码，为什么在黑体字部分是死循环了呢？

boyeestudio

m=DataTable.Value("billno_value_out", "留单受理")
        Dim data,intRow

        Dim objNode
        
        Do '如果没找到

                intRow=Browser("框架页面").Page("框架页面").Frame("Service_3").WebTable("公共任务列表").GetRowWithCellText(m)
                If intRow<>-1 Then
                        Exit Do
                Else
                        Browser("框架页面").Page("框架页面").Frame("Service_3").WebElement("下一页").Click               
                End If
        Loop Until intRow<>-1
        
        set objNode=Browser("框架页面").Page("框架页面").Frame("Service_3").WebTable("公共任务列表").ChildItem(intRow,2,"WebElement",0)
        objNode.set "ON

[ 本帖最后由 boyeestudio 于 2008-8-12 14:16 编辑 ]

hsjzfling

intRow的值如果一直为-1，那么就会一直执行那句代码~
你可以调试下，每次循环都看看intRow的值，看是否取值有问题~

centurystone

2楼说和很正确，养成调试的习惯很重要

fpbaggio

m=DataTable.Value("billno_value_out", "留单受理")
        Dim data,intRow

        Dim objNode
        
        Do '如果没找到

                intRow=Browser("框架页面").Page("框架页面").Frame("Service_3").WebTable("公共任务列表").GetRowWithCellText(m)
                If intRow=-1 Then
                        Browser("框架页面").Page("框架页面").Frame("Service_3").WebElement("下一页").Click               
                End If
        Loop Until intRow<>-1
        
        set objNode=Browser("框架页面").Page("框架页面").Frame("Service_3").WebTable("公共任务列表").ChildItem(intRow,2,"WebElement",0)
        objNode.set "ON

这样写不行吗》？