51Testing软件测试论坛

标题: general run error是为什么？ [打印本页]

作者: wslss007 时间: 2008-3-6 18:06
标题: general run error是为什么？
写了这么一段小脚本，想检查下航班信息中的price是否正确回显到相应栏位中，可是执行到红色部分就报错：general run error，为啥呢？然后我把Price这个winedit加入到对象库中，就可以了，为啥呢？难道是因为price当时状态是readonly的吗？

Function GetList(i)
Randomize
GetList=RandomNumber(0,i)  '随机取0到i之间的数
End Function

Dialog("Login").WinEdit("Agent Name:").Set "shine"
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure "47cfb3b3fecfd7df981804d774c7bf04178838b2"
Dialog("Login").WinEdit("Password:").Type  micReturn
Window("Flight Reservation").WinObject("Date of Flight:").Type "030609"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Sydney"
Window("Flight Reservation").WinButton("FLIGHT").Click

Dim get_count,ram,result

get_count = window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount
ram = GetList(get_count-1)
result = window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItem(ram)
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select result

'msgbox(myprice)

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "linshine"
Window("Flight Reservation").WinEdit("Tickets:").Set "2"

Dim myprice,myinfo

myinfo = split (result," ")
myprice = myinfo(22)
If  myprice = Window("Flight Reservation").WinEdit("attached text:=Price:").GetROProperty("text") then
   msgbox(myprice)
else msgbox("bug")
End If

作者: 胸毛哥哥 时间: 2008-3-6 20:23
小问题~描述的属性不能确定唯一的对象，如图：
[attach]39641[/attach]
导致GetROProperty方法无法执行，从而报了general run error

解决方法也就很简单咯，再增加个描述的属性，能确定唯一的对象就好咯~

作者: wslss007 时间: 2008-3-6 22:47
谢谢LS的，看来有时编程描述得不清也会出现莫不这头脑的错呀，呵呵。

作者: higkoo 时间: 2008-3-7 13:40
标题: 常规错误
多数情况下是语法错误之外的结构性错误。譬如，两层循环，循环变量是同一个变量。

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