帮我看看循环哪里出错了，老跑到第9次就跑不下去了！

[chen106203291]

Option explicit
Dim intnumflyfrom,intnumflyto,intnumfrom
Dim strflyfrom,strflyto,strfrom
Dim i,j,cnt
Window("Flight Reservation").Restore
intnumflyfrom=Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
intnumflyto=Window("Flight Reservation").WinComboBox("Fly To:").GetItemsCount
For i=0 to intnumflyfrom-1
For j=0 to intnumflyto-1


Window("Flight Reservation").Activate
Window("Flight Reservation").WinMenu("Menu").Select "File;New Order"
Window("Flight Reservation").ActiveX("MaskEdBox").Type "121212"

strflyfrom=Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i)
Window("Flight Reservation").WinComboBox("Fly From:").Select strflyfrom

strflyto=Window("Flight Reservation").WinComboBox("Fly To:").GetItem(j)
Window("Flight Reservation").WinComboBox("Fly To:").Select strflyto
Window("Flight Reservation").WinButton("FLIGHT").Click

intnumfrom=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount
cnt=randomnumber(0,intnumfrom-1)
strfrom=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItem(cnt)
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select strfrom
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click

reporter.ReportEvent micPass,"起始地"&strflyfrom,"目的地"&strflyto&"航次："&strfrom

Window("Flight Reservation").WinEdit("Name:").Set "jack"
Window("Flight Reservation").WinEdit("Tickets:").Set "21"
Window("Flight Reservation").WinRadioButton("Business").Set
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Dialog("Flight Reservations").WinButton("确定").Click
Window("Flight Reservation").WinEdit("Tickets:").Set "2"
Window("Flight Reservation").WinButton("Insert Order").Click
Next
Next

[davy_chen]

问题描述的不是很清楚，到第9次跑不下去是说出错了，有出错报告，还是说没有出错，只是你认为跑的不对。是内循环错误，还是外循环错误。

根据我这里的试验，脚本完全可以正常跑通，所以我推测可能是以下原因导致你那里问题：
1、系统性能不高，所以在最后插入订单时，延时超过了系统设置的同步等待时间，导致找不到对象而失败，这种情况增加同步时间或者wait即可；
2、脚本及运行都没有错，是你个人判断错误，你认为列表中有10条记录，而每次内部循环只跑了9次，因为起飞和目的地不能是同一城市。

[xjwldlover]

如果看问题描述需要10分钟，解决仅需要1分钟，相信进来的人只是路过。
楼主的描述写的太不充分了，最起码错误信息要出来啊

[xjwldlover]

如果看问题描述需要10分钟，解决仅需要1分钟，相信进来的人只是路过。
楼主的描述写的太不充分了，最起码错误信息要出来啊

[愚渔]

一头雾水。。。算了，俺还是打酱油吧。