51Testing软件测试论坛

标题: 高手请进，这段代码，为什么在黑体字部分是死循环了呢？ [打印本页]

作者: boyeestudio 时间: 2008-8-12 14:15
标题: 高手请进，这段代码，为什么在黑体字部分是死循环了呢？
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
intRow的值如果一直为-1，那么就会一直执行那句代码~
你可以调试下，每次循环都看看intRow的值，看是否取值有问题~

作者: centurystone 时间: 2008-8-12 15:14
2楼说和很正确，养成调试的习惯很重要

作者: fpbaggio 时间: 2008-8-13 15:57
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

这样写不行吗》？

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