51Testing软件测试论坛

标题: 脚本循环问题，见脚本 [打印本页]

作者: mizhe521 时间: 2010-1-20 10:35
标题: 脚本循环问题，见脚本
现场勘察ACTION的脚本如下：
现场勘察对应的datatable中有两条数据，其中第二条数据为正常数据。
设置循环后，我想着是执行到datatable中第二条数据，执行完后，执行倒数第四行代码（点击编辑按钮后）跳出这个action去执行下一个action，但是还是继续执行现场勘查这个循环

RowCount=DataTable.GetSheet("现场勘察").GetRowCount
For n=0 to RowCount-1
'现场勘察页面
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("FunctionTree").Link("我的工作台").Click
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("FunctionTree").Link("在办工作").Click
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("PlugInRunService_6").Link("编辑").Click
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("PlugInRunService_3").WebEdit("ctl05$ctl08$ProspectPerson").Set DataTable("勘察人", dtLocalSheet)
cout=DataTable.GetSheet("现场勘察").GetCurrentRow
If cout=2 Then
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("PlugInRunService_3").Image("ctl05$SaveDataButton").Click 33,10
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("PlugInRunService_4").Image("ctl05$TransmitDataButton").Click 38,11
Browser("创富电子业务开发平台_2").Page("创富电子业务开发平台").Frame("PlugInRunService").WebCheckBox("ctl05$UsersList$ctl03$CheckBox").Set "ON"
Browser("创富电子业务开发平台_2").Page("创富电子业务开发平台").Frame("PlugInRunService").Image("ctl05$ConfirmTransmit").Click 23,13
Browser("创富电子业务开发平台").Page("创富电子业务开发平台_2").Frame("PlugInRunService_4").Link("编辑").Click
End If
RowCount=DataTable.GetSheet("现场勘察").SetNextRow
Next

[ 本帖最后由 mizhe521 于 2010-1-20 14:20 编辑 ]

作者: wugecat 时间: 2010-1-20 11:11
最后一句RowCount=DataTable.GetSheet("现场勘察").SetNextRow有问题SetNextRow不能返回值吧.
太长了没看完全..

作者: ls_721521 时间: 2010-1-20 11:30
最后一句改成DataTable.SetNextRow（）就行了

作者: mizhe521 时间: 2010-1-20 14:23
标题: 回复 3# 的帖子
将RowCount=DataTable.GetSheet("现场勘察").SetNextRow修改为DataTable.SetNextRow()还是不行
执行完第2个循环后，还会继续执行的
麻烦帮忙在看看吧

作者: liuxl 时间: 2010-1-20 14:29
没明白，不是总共两条数据吗，还往哪跳？

作者: mizhe521 时间: 2010-1-20 15:19
标题: 回复 5# 的帖子
一共有2条数据，执行完就应该往下一个Action中挑

作者: 风雪夜归人 时间: 2010-1-20 17:45
RowCount=DataTable.GetSheet("现场勘察").SetNextRow
改为
DataTable.GetSheet("现场勘察").SetNextRow
试试

作者: liujinkui 时间: 2010-1-21 08:54
这个问题不在这，在文件属性中选择文件迭代一次

作者: mizhe521 时间: 2010-1-22 08:57
标题: 回复 7# 的帖子
问题已解决，就是将
RowCount=DataTable.GetSheet("现场勘察").SetNextRow
改为
DataTable.GetSheet("现场勘察").SetNextRow
非常感谢大家的帮助

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