QTP中类型不匹配错误

夜深人静

Dim i                                                                '定义行号
Dim outputvalue                                           '定义系统实际提示信息变量
Dim istatus                                                     '定义系统预期提示信息变量

For i=0 to datatable.GetSheet("Action1").getrowcount

Browser("Web Tours").Page("Web Tours").Frame("navbar").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("Web Tours").Page("Web Tours").Frame("navbar").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("Web Tours").Page("Web Tours").Frame("navbar").Image("Login").Click 44,11
Browser("Web Tours").Page("Web Tours").Frame("info").Output CheckPoint("info")                              '插入文本输出点

outputvalue=datatable("outmsg",dtlocalsheet)
istatus=datatable("status",dtlocalsheet)

If    outputvalue <> istatus       Then
        reporter.ReportEvent 1,  "登陆功能测试", "预期值为:" +istatus, "实际值为:" +outputvalue

End If

datatable.GetSheet("Action1").getnextrow
Next

'进入系统
Browser("Web Tours").Page("Web Tours").Frame("navbar").Image("SignOff Button").Click
Browser("Web Tours").Page("Web Tours").Sync
Browser("Web Tours").Close


运行一遍之后就会报错： 类型不匹配: 'reporter.ReportEvent'

geek

貌似你这句有问题,reporter.ReportEvent 1,  "登陆功能测试", "预期值为:" +istatus, "实际值为:" +outputvalue你最后面一个参数中间加了个逗号,"预期值为:" +istatus, "实际值为:" +outputvalue
你把这个逗号放到后面的字符串中试试.
reporter.ReportEvent 1,  "登陆功能测试", "预期值为:" +istatus+",实际值为:" +outputvalue

另你的for循环上界最好不要为0,这样会多循环一次哦.最好为1.你认为呢?.

louqqson008

"预期值为:" +istatus, "实际值为:" +outputvalue
应该是这里错了，但具体问题出在哪我也有点迷糊，把，号换成&呢？
如果知道答案了，也告诉我下啊

xjwldlover

调用函数时提示类型错误，一般都是函数参数写错了，比如楼主这里，reportEvent的用法在帮助文档里是
Reporter.ReportEvent EventStatus, ReportStepName, Details [, ImageFilePath]
第四个参数是个path，显然楼主的第四个参数不是个文件路径

buble84

试试这样  
reporter.ReportEvent 1,"登录功能测试","预期值为: "+istatus+", 实际值为: "+outputvalue