51Testing软件测试论坛

标题: 求救 [打印本页]

作者: xiaozhai 时间: 2008-7-21 15:47
标题: 求救
dim a
a=Browser("Untitled Page").Page("Untitled Page").WebButton("房态查询").Check CheckPoint("房态查询")
Reporter.Filter=0
If (a=false) Then
Reporter.ReportEvent micPass,"错误报告","房态查询"
else
Browser("Untitled Page").Page("Untitled Page").WebButton("房态查询").Click
End If

为什么代码第二行提示语句未结束呢，是不是赋值的时候有错误，请高手看看
万分感谢

作者: 远野志贵 时间: 2008-7-21 15:51
改成这样,就OK了
a=Browser("Untitled Page").Page("Untitled Page").WebButton("房态查询").Check (CheckPoint("房态查询"))

作者: 假装不在 时间: 2008-7-21 16:02
少了个括号吧，估计和楼上说的一样。

作者: jifeng 时间: 2008-7-21 16:04
就是少了个括号，

作者: xiaozhai 时间: 2008-7-21 16:04
谢谢。问题已解决

作者: 小孩 时间: 2008-7-21 16:30
以后细心点

作者: zte_boy 时间: 2008-7-21 23:09
做测试要仔细

作者: xiaozhai 时间: 2008-9-2 16:39
谢谢

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