Question

QTP for循环用法

For i = 0 To 8
Windows("xxx").WinObject("TTreeView").Type micDwn
……
……
Next
如何实现第一次循环选择第一个，第二次循环选择第二个……

Answer 1

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

for循环控制变量从小到大

Dim row

Dim StrValue

row =DataTable.GetSheet("Global").GetCurrentRow '获得当前运行数据的行数

For row =0 to 20

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

.WebEdit("personForm.personName").Set StrValue '注意使用参数后不能在使用DataTable方法

.WebButton("确定").Click

DataTable.SetNextRow '一次执行所有的数据行因此，执行FOR循环需置为下一行继续执行

Next

for循环控制变量从大到小

Dim i

Dim strSelectNum

With Browser("xxxx")

With .Page("xxx")

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

wait(3)

' .WebEdit("userPassword").SetSecure
"4a1b58fa0198da28ca9cbe8639560eca2f4f9f19fde271b9e0e3"

.WebButton("登录").Click

End With

For i=9 To 0 STEP -1

With .Page("xxx_3")

strSelectNum =cstr(i)

.WebRadioGroup("tableRadio").Select strSelectNum

.WebButton("删除").Click

End With

.Dialog("Microsoft Internet Explorer").WinButton("确定").Type micReturn

Next

End With

Answer 2

将for中i改为i = 1 to 9，将i除2取余，然后加个对i的判断，i=1和i=2进行不同的操作