boyeestudio 发表于 2008-8-12 14:15:11

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

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 发表于 2008-8-12 14:25:11

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

centurystone 发表于 2008-8-12 15:14:56

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

fpbaggio 发表于 2008-8-13 15:57:19

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

这样写不行吗》？
页: [1]
查看完整版本: 高手请进，这段代码，为什么在黑体字部分是死循环了呢？