请求帮忙！

daixiujiang

Dim outputvalue
Dim  istatus
Dim i
For i=1 to datatable.GetSheet ("Action1") .getrowcount
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set DataTable("username", dtGlobalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure DataTable("password", dtGlobalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 28,9
Browser("Welcome: Mercury Tours").Dialog("Internet Explorer").WinButton("确定").Click
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Output CheckPoint ("Welcome: Mercury Tours")
outputvalue=Datatable ("outmsg",dtGlobalSheet)
istatus=datatable("status",dtGlobalSheet)
If outputvalue <>istatus  Then
        reporter.ReportEvent  1,"denglugongnengceshi","qiwangzhiwei:"+istatus+",shijiantishixinxiwei:"+outputvalue
Else
        reporter.ReportEvent  0,"denglugongnengceshi","ceshichenggong!"
End If
    datatable.GetSheet ("Action1").SetNextRow
Next
                   请问这段代码错误在哪里？该如何修改呢？？ 请帮忙解决哈

daixiujiang

提示：For i=1 to datatable.GetSheet ("Action1") .getrowcount
说是语句未结束，该药怎么结束呢？

PrefTest

在QTP中调试一下就应该能定位到哪一行代码出错了