mars0309 发表于 2010-6-28 16:35:57

if else语法问题请教

我想对网站后台的通过功能进行自动化,这个开发的规律是,如果该条记录可以操作成功,那么那条记录就被下面那条记录顶下来到别的模块,如果操作失败,则还在原来的位置上,所以我设置了一个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 发表于 2010-6-28 16:46:33

if xxxxx then 后面换行。。。

鹭岛 发表于 2010-6-29 13:45:03

If a=b Then
   msgbox "ab相等"
ElseIf a=c Then
   msgbox "ac相等"
Else
    msgbox "a和b或者a和c都不相等"
End If
页: [1]
查看完整版本: if else语法问题请教