51Testing软件测试论坛

标题: 不能识别对象的 item是怎么回事？ [打印本页]

作者: xiatian831621 时间: 2008-5-29 17:46
标题: 不能识别对象的 item是怎么回事？
RunAction "login [login]", oneIteration
wait(10)
m=DataTable.GetSheet("Global").GetRowCount
n=DataTable.GetSheet("new ups shipping mehtod").GetRowCount
msgbox(m)
msgbox(n)
ReDim newservices(m),ShipCostType(n)
Browser("Fastcommerce").Page("Fastcommerce_2").Link("Set Up").Click
wait(10)
Browser("Fastcommerce").Page("Fastcommerce").Link("Change").Click
wait(10)
k=1
Browser("Fastcommerce#_1").Page("Fastcommerce#").Link("New Shipping Method").Click
Browser("Fastcommerce#_1").Page("Fastcommerce#").WebList("newServices").Click
newservices(k)=DataTable.Value("new_services","Global")
msgbox(newservices(k))
Browser("Fastcommerce#_1").Page("Fastcommerce#").WebList("newServices").Select( newservices(k)
//执行到这就报错
wait(3)
j=1
ShipCostType(j)=DataTable.Value("ShipCostType","Global")
msgbox(ShipCostType(j))
   If ShipCostType(j)=NULL Then
   j=1
   DataTable.SetCurrentRow(j)
   End If
  wait(3)
Browser("Fastcommerce#_1").Page("Fastcommerce#").WebList("shippingCostType").Select (ShipCostType(j))
//执行到这就报和上面一样的错，
wait(3)
   If Browser("Fastcommerce").Page("Fastcommerce").WebEdit("shipFlatRates").Exist then
         Browser("Fastcommerce#_1").Page("Fastcommerce#").WebEdit("newFlatRates").Set "55"
      elseif  Browser("Fastcommerce").Page("Fastcommerce").WebEdit("firstWeight").Exist then
               Browser("Fastcommerce").Page("Fastcommerce").WebEdit("firstWeight").Set"2.22"
   Browser("Fastcommerce").Page("Fastcommerce").WebEdit("additionalWeight").Set"2"

   elseIf  Browser("Fastcommerce").Page("Fastcommerce").WebEdit("firstItem").Exist  then
   Browser("Fastcommerce").Page("Fastcommerce").WebEdit("firstItem").Set "3.33"
   Browser("Fastcommerce").Page("Fastcommerce").WebEdit("additionalItem").Set "3"

         elseif Browser("Fastcommerce").Page("Fastcommerce").WebList("shippingCostType").Select("Item Specific") then
  Browser("Fastcommerce#").Page("Fastcommerce#").WebElement("Go to individual product").Check CheckPoint("Go to individual product to add shipping cost")
else

Browser("Fastcommerce#_1").Page("Fastcommerce#").WebElement("enableShipInfos").Check CheckPoint("enableShipInfos")

      End If
   j=j+1

            k=k+1
DataTable.SetNextRow

   Browser("Fastcommerce").Page("Fastcommerce").Link("Save").Click
   wait(5)
         Browser("Fastcommerce").Dialog("Microsoft Internet Explorer").WinButton("确定").Click

作者: Randall 时间: 2008-5-29 20:14
从给的错误信息看好像是说item不在weblist的itemlist 里面。
楼主可以看看weblist里面有哪些item先
Msgbox Browser("Fastcommerce#_1").Page("Fastcommerce#").WebList("newServices").GetROProperty("all items")
然后通过debug看看newservices(k)这个是不是在itemlist里面

作者: xiaonan 时间: 2008-5-30 09:07
其实有些错误是自己可以解决的，只要单步调试一下，就可以发现问题

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