为什么一样的格式，在我的机器上不能运行呢？

yn303

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

xiexie

walker1020

中间的判断语句，我一般是这样写的：
  If cou<>246038 Then
     Reporter.ReportEvent micFail, "Custom Step", "The user-defined step failed."   
  end if

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

yn303

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后面跟两句代码也会出现这种问题

yn303

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在一行中