if else语法问题请教

mars0309

我想对网站后台的通过功能进行自动化，这个开发的规律是，如果该条记录可以操作成功，那么那条记录就被下面那条记录顶下来到别的模块，如果操作失败，则还在原来的位置上，所以我设置了一个if else语句，但是QTP编辑始终通过不了，提示else 和end if部分有问题
代码如下：
Browser("服基因后台管理工作平台").Page("服基因后台管理工作平台").WebButton("通过").Click
RowCount=Browser("服基因后台管理工作平台").Page("服基因后台管理工作平台").WebTable("店铺中文名").RowCount '获取表格的行数

For i=1 to RowCount
j=1
check=Browser("服基因后台管理工作平台").Page("服基因后台管理工作平台").WebElement("name").GetROProperty ("attribute/outerText")
caozuo=Browser("服基因后台管理工作平台").Page("服基因后台管理工作平台").WebTable("店铺中文名").GetCellData (j,6)
if check="修改状态成功" Then Set objTable=Browser("服基因后台管理工作平台").Page("服基因后台管理工作平台").WebTable("店铺中文名") '获取WebTable对象
Set mypassbutton=objTable.childItem(j,6,"WebButton",3) '通过ChildItem获取单元格中的”通过”按钮对象
mypassbutton.click'单击“通过”按钮
Else
j=j+1
Set objTable=Browser("服基因后台管理工作平台").Page("服基因后台管理工作平台").WebTable("店铺中文名") '获取WebTable对象
Set mypassbutton=objTable.childItem(j,6,"WebButton",3) '通过ChildItem获取单元格中的”通过”按钮对象
mypassbutton.click'单击“通过”按钮
End If
Next

skyzhu

if xxxxx then 后面换行。。。

鹭岛

If a=b Then
   msgbox "ab相等"
ElseIf a=c Then
   msgbox "ac相等"
Else
    msgbox "a和b或者a和c都不相等"
End If