51Testing软件测试论坛

标题: checkbox 为什么在循环到第二次的时候报General run error？ [打印本页]

作者: 水易清 时间: 2010-11-26 17:24
标题: checkbox 为什么在循环到第二次的时候报General run error？
本帖最后由水易清于 2010-11-26 17:26 编辑

Set NewObject = Description.Create
NewObject("micclass").value ="WebCheckBox"
NewObject("html tag").value="INPUT"
'NewObject("class").value = "checkBox_class"
Set NewObjects = Browser("creationtime:=0").Page("index:=0").ChildObjects(NewObject)
Numbers = NewObjects.Count
For i = 0 to NewObjects.count-1
      msgbox i
      wait 3
      NewObjects(i).Set "ON"
      Browser("creationtime:=0").Page("index:=0").Link("text:=编辑").Click
      wait 1
      with Browser("creationtime:=0").Window("ispopupwindow:=-1","regexpwndtitle:=酒店房间类型信息 -- 网页对话框","regexpwndclass:=Internet Explorer_TridentDlgFrame","is child window:=0","is owned window:=-1").Page("index:=1")
            .WebEdit("name:=bean.unitName").Set DataTable("unitName",dtLocalSheet)
            .WebEdit("name:=bean.unitSpell").Set DataTable("unitSpell",dtLocalSheet)
            .WebList("name:=bean.bedType").Select DataTable("bedType",dtLocalSheet)
            .WebEdit("name:=bean.area").Set DataTable("area",dtLocalSheet)
            .WebList("name:=bean.inetInfo").Select DataTable("inetInfo",dtLocalSheet)
            .WebList("name:=bean.breakfast").Select DataTable("breakfast",dtLocalSheet)
            .WebEdit("name:=bean.maxAllow").Set DataTable("maxAllow",dtLocalSheet)
            .WebEdit("name:=bean.total").Set DataTable("total",dtLocalSheet)
            .WebEdit("name:=bean.refPrice").Set DataTable("refPrice",dtLocalSheet)
            .WebEdit("name:=bean.receptionPrice").Set DataTable("receptionPrice",dtLocalSheet)
            .WebEdit("name:=bean.memo").Set DataTable("memo",dtLocalSheet)
            .WebButton("name:=提交").Click
            .WebButton("name:=关闭").Click
            wait 3
   end with
   DataTable.SetNextRow
Next
循环到第二次msgbox 1后，报General run error line（10）：“NewObjects（i）.set "on"”.

作者: sunnyswu 时间: 2010-11-27 00:14
DataTable.SetNextRow
也许问题在这里，可能你用的local datasheet，
这样的话，这个函数是要找到具体的sheet才能setnextrow

作者: lyscser 时间: 2010-11-27 12:33
是因为页面可能有隐藏的复选框，你应该加一个判断
If NewObjects(i).GetROProperty("visible") = True And NewObjects(i).GetROProperty("readonly") = "0" Then
NewObjects(i).Set "ON"
End If

哪个酒店？汉庭哇?

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