QTP描述性编程中的问题

MarsNoNo

代码如下：
systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
dialog("regexpwndtitle:=Login").Activate
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Agent Name:").Set "admin"
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Password:").Set "mercury"
dialog("regexpwndtitle:=Login").winbutton("nativeclass:=button","text:="+"OK").click
wait 5
'window("regexpwndtitle:=Flight Reservation").Activate
window("regexpwndtitle:=Flight Reservation").ActiveX("progid:=MSMask.MaskEdBox.1").type "111111"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly From:").Select "London"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly To:").Select "Denver"
window("regexpwndtitle:=Flight Reservation").winbutton("regexpwndtitle:=FLIGHT").Click
dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").Activate
a = dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").GetItemsCount
b = randomnumber(1,a)
dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").Select b

运行后，12行报错提示winlist的属性不唯一，需要添加另外唯一属性。截图如下：

将12行至以后代码更改为：
dialog("regexpwndtitle:=Flights Table").winlist("attachedtext:=From").Activate
a = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("winid:=2001").GetItemsCount
b = randomnumber(1,a)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("winid:=2001").Select b
还是到12行，不报错，但就运行不下去了。
请高手指点，什么原因。

MarsNoNo

这段代码有问题：
b = randomnumber(1,a)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("winid:=2001").Select b
select的是一个char串，而并不是一个number。所以执行不过去。还有一个我想说的就是winid这个属性最好不要用在描述性编程中。因为我今天又跑了N次后，发现没有这个属性了sdlkfj8 ，今天一看，出来了一个window id属性。sdlkfj5
后来我把代码改成如下：
a = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItemsCount
b = randomnumber(0,a-1)
c = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItem (b)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").Select c
就能顺利跑通了。
我是通过一个randomnumber实现在Flights Table中随机选取航班。这里我想说一下，randomnumber这个函数的起点是0，前面的代码中我也写错了，我从1开始的，当然会错误了。所以也提出来，希望大家能以我为戒。一定要细心。
我在调上面那段代码的时候也出现了一个很弱智的错误。属性“attached text”这个词组中，多加了一个空格。郁闷了N分钟，后来还是一个同学帮我看出来的，他是19期中的QTP高手。希望大家能多多交流，共同进步。

p.s.:6楼的是20期的吧？！我把我今天调的代码贴出来，还没完成，多多交流，交流！

systemutil.Run "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
dialog("regexpwndtitle:=Login").Activate
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Agent Name:").Set "admin"
dialog("regexpwndtitle:=Login").winedit("attachedtext:= Password:").Set "mercury"
dialog("regexpwndtitle:=Login").winbutton("nativeclass:=button","text:=OK").click
wait 5
window("regexpwndtitle:=Flight Reservation").ActiveX("progid:=MSMask.MaskEdBox.1").type "111111"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly From:").Select "London"
window("regexpwndtitle:=Flight Reservation").WinComboBox("attachedtext:=Fly To:").Select "Denver"
window("regexpwndtitle:=Flight Reservation").winbutton("regexpwndtitle:=FLIGHT").Click
a = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItemsCount
b = randomnumber(0,a-1)
c = window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").GetItem (b)
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winlist("nativeclass:=ListBox","attached text:= From").Select c
window("regexpwndtitle:=Flight Reservation").dialog("regexpwndtitle:=Flights Table").winbutton("nativeclass:=Button","text:=OK").Click
window("regexpwndtitle:=Flight Reservation").winedit("nativeclass:=Edit","attached text:=Name:").Set "cc"
window("regexpwndtitle:=Flight Reservation").winedit("nativeclass:=Edit","attached text:=Tickets:").set "2"
d = randomnumber(1,3)
window("regexpwndtitle:=Flight Reservation").winradiobutton("nativeclass:=Button","index:="+cstr(d)).set

jane.su

错误信息翻译过来是：[WinList]对象的描述匹配了应用程序中目前显示的多个对象。给这个对象描述，加入另外的属性，可以

让它唯一被标识。

意思是，winlist("attachedtext:=From")，这个对象描述后，找不到唯一的一个对象，你需要再增加属

性，比如粉色字体部分：

Window("regexpwndclass:=Afx:","regexpwndtitle:=Flight Reservation","is owned

window:=False","is child window:=False").Dialog("nativeclass:=#32770","text:=Flights

Table","is owned window:=True","is child window:=False").
WinList("nativeclass:=ListBox","attached text:=From").
Select "6307   DEN   01:00 PM   LAX   05:00

PM   UA     $245.00"

这样就可以了，你试试！

今天刚学过这个课程，现炒现卖喽！！

gzj_06

原因我帮你找出来了，请看附件中截图
From下面有两个LON，你可以用Object Spy查看一下，可以看到这两个LON都是WinList:From对象，所以会报错

candy_83

描述性编程的好处就是对象库中可以什么对象也没有

MarsNoNo

如题！
用描述性编程更改了属性后，改成唯一的，还是运行不过去。

keenling

我觉得,这是对象库识别winlist不唯一造成的,光改源码不行吧,到对象库中,增加winlist对象的识别属性(先找到他们的不同点),让QTP能够分辨它们,再根据你增加属性的值修改源码.
我觉得这就想数据库中设定主键不能唯一标识一样.