QTP脚本中的FOR循环

使用for循环可以一次执行完所有的数据参数

G4SfJ3a _0

for循环控制变量从小到大

:lHX|a^!^.Y,J0

Dim row

He!m)TZrq0

Dim StrValue51Testing软件测试网luxeRMRm

 

{%Sn9|'x'@tAl5}0

row =DataTable.GetSheet("Global").GetCurrentRow  '获得当前运行数据的行数51Testing软件测试网u
f)Tf"iUm*bq

 

Q:I D{~0

For row =0 to 20

1i-f(w.r3j4m0

StrValue=DataTable.RawValue ("p_Textname", "Global")  '获得当前运行行的值参数为参数名，Sheet名称

]n"z |8K0

 

tmvAmMqn0

.WebEdit("personForm.personName").Set StrValue    '注意使用参数后不能在使用DataTable方法51Testing软件测试网u'R MW-M]7J

.WebButton("确定").Click51Testing软件测试网v/yvIjy#d|

 51Testing软件测试网N{ t+Y_ Tj

DataTable.SetNextRow  '一次执行所有的数据行因此，执行FOR循环需置为下一行继续执行51Testing软件测试网,s _G8Sb}2r ^n q-|D

Next

.i&kv!co&G8S5@U s0

 

4jH|Fmm0

51Testing软件测试网9l{hM$BW4a

for循环控制变量从大到小

oLZU*I(W9yK0

 

oqtGy0

Dim i

$aR!L i(K p"v(o`+YH0

Dim strSelectNum

,Dw dF-kbhxRu0

With Browser("xxxx")

+Jf0_S:R#~5Z0

With .Page("xxx")

Tc8z5h*Oz M!~6Q0

.WebEdit("userLoginName").Set "summer"

?yK?z,C.K.{o0

wait(3)51Testing软件测试网Ae.ET+R:IE'z1u

 '   .WebEdit("userPassword").SetSecure "4a1b58fa0198da28ca9cbe8639560eca2f4f9f19fde271b9e0e3"51Testing软件测试网cL[1W!C
x

.WebButton("登录").Click

l"x `@L3z1e/A`0

End With

^_iHN0

 

&Sucn7x'_0

    For i=9 To 0 STEP -1

zhx/l}Fo~H0

With .Page("xxx_3")51Testing软件测试网 ty,M4m"VBCKc

strSelectNum =cstr(i)51Testing软件测试网 n'T @*xs_

.WebRadioGroup("tableRadio").Select strSelectNum51Testing软件测试网:hTgn Vk? J u

.WebButton("删除").Click

0q%J#J0g"]{*a0

End With

!Yg&^QhMzu'J0

.Dialog("Microsoft Internet Explorer").WinButton("确定").Type  micReturn51Testing软件测试网h1U.?h;gb

Next

0Ft A5l#l(s0

End With51Testing软件测试网|7\k G iR,x)K

 51Testing软件测试网]6c;EQ#@m*[/{