大家帮我看看这段代码吧。不知道为什么循环不了

krinin

Browser("goldcity").Page("goldcity").Frame("leftFrame").Link("组件管理").Click
Browser("goldcity").Page("goldcity").Frame("leftFrame_2").Link("组件模版类型管理").Click
Dim i
For i = 1 to 5
Browser("goldcity").Page("goldcity").Frame("mainFrame").WebButton("添加组件模板类型").Click
Browser("goldcity").Page("goldcity").Frame("mainFrame_2").WebEdit("genreName").Set DataTable("name_Text", dtGlobalSheet)
        Browser("goldcity").Page("goldcity").Frame("mainFrame_2").WebEdit("remark").Set DataTable("remark_Text", dtGlobalSheet)
Browser("goldcity").Page("goldcity").Frame("mainFrame_2").WebButton("提交").Click
next
Browser("goldcity").Page("goldcity").Sync
Browser("goldcity").Close

其中name_Text remark_Text 是我设置的参数化，name_Text里面内容是第一组 ccc  第二组 bbb 第三组 ccc  remark_Text里面内容是第一组xxx 第二组eee 第三组ppp   然后循环添加参数化里面的内容
但每次运行都只能获取到第一组数据 ccc 和 xxx 获取不了其它组的数据。是什么问题呢

gy21st

1. 如果设置为run on all rows, 就没有必要自己写循环
2. 如果要自己控制循环， 要对数据表进行操作

Dim iRows
iRows = DataTable.GlobalSheet.GetRowCount
For i = 1 to iRows
DataTable.GlobalSheet.SetCurrentRow(i)
...
Next

wu52wen

设置的循环变量不是你这么用的!
dim i,j
j=DataTable.GetSheet("sheetName").GetParameter("ParameterName").GetRowCount
获取你表中一共有多行 并把他做为循环的次数
for i=1 to j
       Value=datatable.GetSheet("SheetName").GetParameter("ParameterName").ValueByRow(i)
       按照当前行数i来获取表中的值
       然后在把Value赋值到对应的WebEdit对象就可以了
Next

gy21st

原帖由 wu52wen 于 2007-11-29 17:29 发表
设置的循环变量不是你这么用的!
dim i,j
j=DataTable.GetSheet("sheetName").GetParameter("arameterName").GetRowCount
获取你表中一共有多行 并把他做为循环的次数
for i=1 to j
       Value=datatable.Get ...

别误导，错了哦

hsjzfling

原帖由 wu52wen 于 2007-11-29 17:29 发表
设置的循环变量不是你这么用的!
dim i,j
j=DataTable.GetSheet("sheetName").GetParameter("ParameterName").GetRowCount
获取你表中一共有多行 并把他做为循环的次数
for i=1 to j
       Value=datatable.Get ...

确实有两处错误，稍微改了下，楼主可用如下代码
RowCount=DataTable.GetSheet(1).GetRowCount '获得GlobalSheet的行数
for iRow=1 to RowCount
       name_Text=datatable.GetSheet(1).GetParameter(1).ValueByRow(iRow)  '取第一个参数
       remark_Text=datatable.GetSheet(1).GetParameter(1).ValueByRow(iRow)  '取第二个参数
Next

Jor

2楼正解。。。

krinin

gy21st 的方法正确，但出现了新的问题。
脚本从头到尾不停循环，停不了了。要按stop才停

gy21st

不会吧，你看看iRows等于几嘛

yeziqingqing

8#说的对，让iRows等于当前的行数就可以，
也可以参考下边的语句，根据需要加到脚本中，这些是好像是在QTP精华中看到的，呵呵。

ExitTest -退出整个TEST。
ExitAction - 退出当前操作，无论其循环属性如何。
ExitActionIteration - 退出操作的当前循环。
ExitRun - 退出测试，无论其循环属性如何。
ExitGlobalIteration - 退出当前全局循环。