QuickTest Professional循环语句的使用

  QTP循环语句的使用
1、While循环
Dim CountNum,i
i=1
CountNum=DataTable.GetSheet("Action1").GetRowCount
While i<=CountNum
“
Browser("办公系统").Page("办公自动化系统").Frame("leftFrame").Link("我的通讯簿").Click
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame").Image("btn_dj_on").Click
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").Set DataTable("p_Text", dtLocalSheet)
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_2").Image("btn_bc_on").FireEvent "onmouseover"
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_2").Image("btn_bc_on").Click
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_3").Check CheckPoint("保存通讯记录成功！")
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_3").WebButton("返 回").Click
”
DataTable.GetSheet("Action1").SetNextRow
 i = i+1
Wend

2、for循环
Dim CountNum
CountNum=DataTable.GetSheet("Action1").GetRowCount
For i=0 to CountNum-1
“
Browser("办公系统").Page("办公自动化系统").Frame("leftFrame").Link("我的通讯簿").Click
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame").Image("btn_dj_on").Click
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_2").WebEdit("addressVO.name").Set DataTable("p_Text", dtLocalSheet)
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_2").Image("btn_bc_on").FireEvent "onmouseover"
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_2").Image("btn_bc_on").Click
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_3").Check CheckPoint("保存通讯记录成功！")
Browser("办公系统").Page("办公自动化系统").Frame("mainFrame_3").WebButton("返 回").Click
”
DataTable.GetSheet("Action1").SetNextRow
Next