for循环中使用if语句的格式

npy912

请问高手们for循环中使用if语句的格式，谢谢大家了在线等

Ramon22

for i = 1 to 10
   if i = 5 then
      ....
   end if
   .......
next

[ 本帖最后由 Ramon22 于 2007-10-22 16:33 编辑 ]

npy912

我想实现比如
for i=1  to 100
  if i=1 then a
    else  b
  end if
next

npy912

错误提示是
The test run cannot continue due to a syntax error.

缺少 'Next'

npy912

详细信息是这个Line (5): "Else Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click".

tonyzhangjie

这个肯定不是循环if的问题,可能是你语句没描述清楚
还有就是你把你想怎么操作说具体点把,不太明白你的意思...

npy912

For i=1 to 10  
Browser("login").Page("安防系统").Frame("incFrame").Image("Tplus").Click
Browser("login").Page("安防系统").Frame("incFrame").Link("出库").Click
   If i=1 Then Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息").Click
       Else Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click
   End If
Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click
Browser("login").Page("安防系统").Frame("incFrame1_2").Link("卡输出").Click
wait(1)
Browser("login").Dialog("文件下载").WinButton("保存(S)").Click
Browser("login").Page("安防系统").Sync
Dialog("文件下载").Dialog("另存为").WinButton("保存(S)").Click
Dialog("下载完毕").WinButton("关闭").Click
Browser("login").Page("安防系统").Sync
Next i
Browser("login").Close

npy912

就是这个脚本

Ramon22

把Next i 后面的i去掉，试一下。

tonyzhangjie

Else Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click
照你这个写法循环执行完不是要执行9遍click Link("详细信息_2")么?不知道你是不是要这样的操作...
还有就是next i的i不用

npy912

还是一样 没有任何变化

npy912

对是执行9遍，主要是想实现这样的脚本。

npy912

把next 后面的i去掉了还是不行 都是一样的错误提示

Ramon22

你先把For...Next循环注释掉，Run一下。看有没有错。

tonyzhangjie

Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click
建议F11调下看看i=2时是不是走到了这个页面,有没有Link("详细信息_2")这个对象

Ramon22

15楼的说的有道理。

jackymail

原帖由 npy912 于 2007-10-22 17:10 发表
还是一样 没有任何变化

if condition then statement

if confition then
statement
else
statement
end if

你把then 后面的句子拿到下面另起一行

还有next 后面的i去掉，又不是数组。i什么i




For i=1 to 10  
Browser("login").Page("安防系统").Frame("incFrame").Image("Tplus").Click
Browser("login").Page("安防系统").Frame("incFrame").Link("出库").Click
   If i=1 Then
      Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息").Click
   Else
      Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click
   End If
Browser("login").Page("安防系统").Frame("incFrame1").Link("详细信息_2").Click
Browser("login").Page("安防系统").Frame("incFrame1_2").Link("卡输出").Click
wait(1)
Browser("login").Dialog("文件下载").WinButton("保存(S)").Click
Browser("login").Page("安防系统").Sync
Dialog("文件下载").Dialog("另存为").WinButton("保存(S)").Click
Dialog("下载完毕").WinButton("关闭").Click
Browser("login").Page("安防系统").Sync
Next
Browser("login").Close

[ 本帖最后由 jackymail 于 2007-10-22 17:30 编辑 ]

npy912

感谢大家 是格式的事 17#说的对 谢谢 献花

sunwf1212

VB的语法格式很重要哦!