51Testing软件测试论坛

标题: QTP中类型不匹配错误 [打印本页]

作者: 夜深人静 时间: 2012-9-17 17:46
标题: 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 时间: 2012-9-18 16:08
貌似你这句有问题,reporter.ReportEvent 1, "登陆功能测试", "预期值为:" +istatus, "实际值为:" +outputvalue你最后面一个参数中间加了个逗号,"预期值为:" +istatus, "实际值为:" +outputvalue
你把这个逗号放到后面的字符串中试试.
reporter.ReportEvent 1, "登陆功能测试", "预期值为:" +istatus+",实际值为:" +outputvalue

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

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

作者: xjwldlover 时间: 2012-9-18 23:38
本帖最后由 xjwldlover 于 2012-9-19 09:54 编辑

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

作者: buble84 时间: 2012-9-19 13:33
试试这样
reporter.ReportEvent 1,"登录功能测试","预期值为: "+istatus+", 实际值为: "+outputvalue

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