|
本帖最后由 happys919 于 2010-12-7 17:13 编辑
QTP 参数化后不能自动循环回复,在file-setting中已经设置run的循环设置为run on all rows了,代码如下:
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame").Link("网络规划建设").Click
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_2").Image("s").Click
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_2").Link("联系人类别").Click
Dim i
For i = 1 to 3
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_3").WebButton("增加").Click
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_4").WebEdit("name").Set DataTable("p_Text", dtLocalSheet)
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_4").WebEdit("description").Set "liji1"
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_4").WebButton("保存").Click
Browser("CloudEx Boss").Page("CloudEx Boss").Frame("Frame_4").WebButton("确认").Click
Next
Browser("CloudEx Boss").Page("CloudEx Boss").Sync
Browser("CloudEx Boss").Close |
|