|
目的:
1.找到相符的webtable中的"贺卡名称"
2.点击找到的贺卡名称后的查看按钮
---------------
第一点已经完成
代码:
'***********************
'定义随机数
'***********************
'function num
randomize
num = fix(rnd*70)
'end function
'************************
'定义贺卡类型数组,给取贺卡名用和贺卡类型用
'************************
Dim CardType,CardTable
CardType = array("生日贺卡","节日贺卡","其他贺卡","祝福贺卡")
'***************************
'
'***************************
Dim MyValue
Randomize
MyValue = int((4*rnd)+1)
CardName = CardType(MyValue-1)
'*******************************
'
'*******************************
Browser("Browser").Page("***平台系统").Frame("menu").Link("贺卡赠送").Click
Browser("Browser").Page("***平台系统").Frame("mainFrame").Link("新增").Click
Browser("Browser").Page("***平台系统").Frame("mainFrame_2").WebEdit("ccpCardDto.card.cardName").Set CardName&num
Browser("Browser").Page("***平台系统").Frame("mainFrame_2").WebList("ccpCardDto.card.cardType").Select CardName
Browser("Browser").Page("***平台系统").Frame("mainFrame_2").WebFile("file").Set DataTable("file", dtLocalSheet)
Browser("Browser").Page("***平台系统").Frame("mainFrame_2").Link("保存").Click
'**********************************
wait 10
RNum = browser("Browser").Page("***平台系统").Frame("mainFrame_6").WebTable("贺卡名称").RowCount()
For q =2 to RNum-2
CardTable_cardname = browser("Browser").Page("***平台系统").Frame("mainFrame_6").WebTable("贺卡名称").GetCellData(q,1)
If len(CardTable_cardname) = len(CardName&num) and instr(CardTable_cardname,CardName&num)<>0 Then
Browser("Browser").Page("***平台系统").Frame("mainFrame_3").Link("查看").Click
Browser("Browser").Page("***平台系统").Frame("mainFrame_4").Link("返回").Click
End If
Next
-----------------
第2点不知道如何定位到.因为webtable中"查看"和"删除"按钮属于同一列
请教如何找到对应"贺卡名称"后的"查看"按钮 |
|