用QTP测试自带的飞机订票系统的登录功能，脚本无法正常运行，大家给点意见

Dim i '定义行号
Dim outputvalue ' 读取实际输出信息
Dim instatus ' 读取预期输出信息

For i=1 to datatable.GetSheet("Action1").getrowcount '获取行数


With Dialog("Login")

  .WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
    .WinEdit("Password:").SetSecure DataTable("password", dtLocalSheet)
    .WinButton("OK").Click

    If  .Dialog("Flight Reservations").Exist Then
               .Dialog("Flight Reservations").Static("Agent name must be at least 4 characters long.").Check CheckPoint("Agent name must be at least 4 characters long.")'插入文本检查点
                .Dialog("Flight Reservations").WinButton("OK").Click               
    End If

       utputvalue=datatable("outmessage",dtlocalsheet)'将实际输出的值赋给变量outputvalue
       intatus=datatable("status",dtlocalsheet)'将预期输出的值赋给变量intatus
       If outputvalue<>intatus Then
              reporter.ReportEvent 1,"登录模块功能","预期输出为："+intatus+"实际输出为："+outputvalue
       End If
       datatable.GetSheet("Action1").setnextrow
End With
Next

 Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"