Dim IntNumber_FlyFrom , IntNumber_FlyTo Dim Str_FlyFrom , Str_FlyTo Dim IntNumber_Form , Str_From Dim FlyFrom_Count, FlyTo_Count, From_Count IntNumber_FlyFrom = Window("航班预订").WinComboBox("起点:").GetItemsCount IntNumber_FlyTo = Window("航班预订").WinComboBox("终点:").GetItemsCount For i = 0 to IntNumber_FlyFrom-1 For j = 0 to IntNumber_FlyTo-1 Window("航班预订").Activate Window("航班预订").WinMenu("Menu").Select "文件(F);新建订单(N)" Window("航班预订").WinObject("航班日期:").Type "111111" Str_FlyFrom = Window("航班预订").WinComboBox("起点:").GetItem(i) Window("航班预订").WinComboBox("起点:").Select Str_FlyFrom print Str_FlyFrom Str_FlyTo = Window("航班预订").WinComboBox("终点:").GetItem(j) Window("航班预订").WinComboBox("终点:").Select Str_FlyTo print Str_FlyTo Window("航班预订").WinButton("FLIGHT").Click IntNumber_Form = Window("航班预订").Dialog("航班表").WinList("从").GetItemsCount For k = 0 to IntNumber_Form-1 Str_From = Window("航班预订").Dialog("航班表").WinList("从").GetItem(k) Window("航班预订").Dialog("航班表").WinList("从").Select Str_From 'print Str_From Window("航班预订").Dialog("航班表").WinButton("确定").Click Window("航班预订").WinEdit("名称:").Set "tom" Window("航班预订").WinButton("插入订单(I)").Click Window("航班预订").Activate Window("航班预订").WinMenu("Menu").Select "文件(F);新建订单(N)" Window("航班预订").WinObject("航班日期:").Type "111111" Str_FlyFrom = Window("航班预订").WinComboBox("起点:").GetItem(i) Window("航班预订").WinComboBox("起点:").Select Str_FlyFrom Str_FlyTo = Window("航班预订").WinComboBox("终点:").GetItem(j) Window("航班预订").WinComboBox("终点:").Select Str_FlyTo Window("航班预订").WinButton("FLIGHT").Click Next From_Count = IntNumber_From '起始地目的地一致时,航班次数就等于取出的航次 Reporter.ReportEvent micPass,"起始地:"&Str_FlyFrom&" 目的地:"&Str_FlyTo&" 航班次数:" & From_Count , Str_FlyFrom & Str_FlyTo & From_Count '报告起始地目的地一致时的航班次数 Window("航班预订").Dialog("航班表").WinButton("取消").Click FlyTo_Count = FlyTo_Count + From_Count ' 起始地一样时,航班次数就等于所有目的地的航班次数之和 Next FlyFrom_Count = FlyFrom_Count + FlyTo_Count' 所有的航班信息就是将所有目的地的航班信息加起来 Next Reporter.ReportEvent micPass,"所有的航班次数:"&FlyFrom_Count ,FlyFrom_Count '报告所有航班次数