51Testing软件测试论坛

标题: 请求帮忙！ [打印本页]

作者: daixiujiang 时间: 2010-11-10 16:30
标题: 请求帮忙！
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
               请问这段代码错误在哪里？该如何修改呢？？请帮忙解决哈

作者: PrefTest 时间: 2010-11-10 17:07
在QTP中调试一下就应该能定位到哪一行代码出错了

作者: daixiujiang 时间: 2010-11-10 17:11
提示：For i=1 to datatable.GetSheet ("Action1") .getrowcount
说是语句未结束，该药怎么结束呢？

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)