51Testing软件测试论坛

标题: 为什么一样的格式，在我的机器上不能运行呢？ [打印本页]

作者: yn303 时间: 2006-8-14 14:51
标题: 为什么一样的格式，在我的机器上不能运行呢？
Dim i,row,cou,j
dim message
  row=Browser("全面预算管理系统").Page("全面预算管理系统").Frame("frmMain").WebTable("首页").RowCount
   i=3
   j=1
Do
   While i<6
message= Browser("全面预算管理系统").Page("全面预算管理系统").Frame("frmMain").WebTable("首页").GetCellData(i,4)
cou=cdbl(message)
If cou<>246038 Then Reporter.ReportEvent micFail, "Custom Step", "The user-defined step failed."
j=j+1 end if
msgbox(message)
i=i+1
   Wend
   Exit do
   msgbox(cstr(j))
Loop
Browser("全面预算管理系统").Page("全面预算管理系统").Link("首页").Click

The test run cannot continue due to a syntax error.
缺少语句
details显示 line[11]:"i=i+1  end if"

请问我这样子写if语句不对么？

作者: yn303 时间: 2006-8-14 15:01
Dim i,row,cou,j
dim message
   row=Browser("全面预算管理系统").Page("全面预算管理系统").Frame("frmMain").WebTable("首页").RowCount
   i=3
   j=1
For i=3 to 6
message= Browser("全面预算管理系统").Page("全面预算管理系统").Frame("frmMain").WebTable("首页").GetCellData(i,4)
   If cou<>246038 Then Reporter.ReportEvent micFail, "Custom Step", "The user-defined step failed." end if
msgbox(message)
Next
Browser("全面预算管理系统").Page("全面预算管理系统").Link("首页").Click

这个样子就可以正常显示 PS：if  endif在一行中

作者: yn303 时间: 2006-8-14 15:04
Dim i,row,cou,j
dim message
   row=Browser("全面预算管理系统").Page("全面预算管理系统").Frame("frmMain").WebTable("首页").RowCount
   i=3
   j=1
For i=3 to 6
message= Browser("全面预算管理系统").Page("全面预算管理系统").Frame("frmMain").WebTable("首页").GetCellData(i,4)
   If cou<>246038 Then Reporter.ReportEvent micFail, "Custom Step", "The user-defined step failed."
end if
msgbox(message)
Next
Browser("全面预算管理系统").Page("全面预算管理系统").Link("首页").Click

改成这个样子后，PS：if endif不在一行中
就开始报错了
The test run cannot continue due to a syntax error.
缺少语句
details显示 line[9]:" end if"

这是为什么呢？而且then后面跟两句代码也会出现这种问题

作者: walker1020 时间: 2006-8-14 20:22
中间的判断语句，我一般是这样写的：
  If cou<>246038 Then
   Reporter.ReportEvent micFail, "Custom Step", "The user-defined step failed."
  end if

这样写的好处是脚本容易维护，也很清楚他们之间的逻辑结构。如果是做过开发，你就熟悉这种写法了。
为了少一行代码而出现缺少语句 details显示 line[9]:" end if"，然后去花费时间去调试而不值得的。当然，如果你是学习VBScript 那是另外一回事。
你去看一些VBScript 方面的参考资料吧，我想你会找到答案的。

作者: yn303 时间: 2006-8-15 09:32
xiexie

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