脚本循环问题，见脚本

mizhe521 发表于 2010-1-20 10:35:27

现场勘察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:26

最后一句RowCount=DataTable.GetSheet("现场勘察").SetNextRow有问题SetNextRow不能返回值吧.
太长了没看完全..

ls_721521 发表于 2010-1-20 11:30:58

最后一句改成DataTable.SetNextRow（）就行了

mizhe521 发表于 2010-1-20 14:23:19

回复 3# 的帖子

将RowCount=DataTable.GetSheet("现场勘察").SetNextRow修改为DataTable.SetNextRow()还是不行
执行完第2个循环后，还会继续执行的
麻烦帮忙在看看吧

liuxl 发表于 2010-1-20 14:29:57

没明白，不是总共两条数据吗，还往哪跳？

mizhe521 发表于 2010-1-20 15:19:21

回复 5# 的帖子

一共有2条数据，执行完就应该往下一个Action中挑

风雪夜归人 发表于 2010-1-20 17:45:28

RowCount=DataTable.GetSheet("现场勘察").SetNextRow
改为
DataTable.GetSheet("现场勘察").SetNextRow
试试

liujinkui 发表于 2010-1-21 08:54:07

这个问题不在这，在文件属性中选择文件迭代一次

mizhe521 发表于 2010-1-22 08:57:45

回复 7# 的帖子

问题已解决，就是将
RowCount=DataTable.GetSheet("现场勘察").SetNextRow
改为
DataTable.GetSheet("现场勘察").SetNextRow
非常感谢大家的帮助

页: [1]

51Testing软件测试论坛 's Archiver