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