51Testing软件测试论坛

标题: 大家帮我看看这段代码吧。不知道为什么循环不了 [打印本页]

作者: krinin 时间: 2007-11-29 17:04
标题: 大家帮我看看这段代码吧。不知道为什么循环不了
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 时间: 2007-11-29 17:17
1. 如果设置为run on all rows, 就没有必要自己写循环
2. 如果要自己控制循环，要对数据表进行操作

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

作者: wu52wen 时间: 2007-11-29 17:29
设置的循环变量不是你这么用的!
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 时间: 2007-11-29 17:50

原帖由 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 时间: 2007-11-29 18:52

原帖由 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 时间: 2007-11-30 09:47
2楼正解。。。

作者: krinin 时间: 2007-11-30 10:44
gy21st 的方法正确，但出现了新的问题。
脚本从头到尾不停循环，停不了了。要按stop才停

作者: gy21st 时间: 2007-11-30 10:54
标题: 回复 7# 的帖子
不会吧，你看看iRows等于几嘛

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

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)