错误处理 on error resume next

Window("Flight Reservation").Activate
On Error resume next                 '如果代码有错的话，加上这句就直接可以运行下去。
Window("Flight Reservation").ActiveX("MaskEdBox").Type "042509"
Window("Flight Reservation").ActiveX("MaskEdBox").Check CheckPoint("MaskEdBox")
Window("Flight Reservation").WinComboBox("Fly From:").Select "Denver"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Frankfurt"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").Activate

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "14243   DEN   12:57 PM   FRA   01:41 PM   SR     $110.00"

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Type "w"
Window("Flight Reservation").WinEdit("Name:").Set "w"

Dim i, b
For i = 1 to 3
Select Case i
    case 1 b= "First"
    case 2 b = "Business"
    Case 3 b = "Economy"
End Select
Window("Flight Reservation").WinRadioButton("First").SetTOProperty "text",b
Window("Flight Reservation").WinRadioButton("First").Set
Next

Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").WinButton("Button").Click