QTP: para el código de bucle

'''Action说明：使用for循环实现小飞机登录功能的功能覆盖测试（正向测试
'countNum = DataTable.GetSheet(dtLocalSheet).GetRowCount    '读取datatable的行数
'msgbox countNum

For i = 0 to  DataTable.GetSheet("Global").GetRowCount-1    '循环

''''使用SystemUtil对象的Run方法打开程序
SystemUtil.Run "C:\HP\QTP\samples\flight\app\flight4a.exe"

''''登录流程
Dialog("Login").WinEdit("Agent Name:").Set DataTable("A", dtGlobalSheet)
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").Set DataTable("B", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click

'验证输入合法登录成功
If  Window("Flight Reservation").Exist Then
	Reporter.ReportEvent 0,"login success","login success login success"
else
	Reporter.ReportEvent 1,"login fail","login fail login fail"
End If

'关闭订票窗口
Window("Flight Reservation").Close

Next