为什么循环有时候就不往下继续了？

ice1216

Dim i,j
j=Datatable.GetRowCount
For i= 1 to j
Browser("管理系统").Page("管理系统").Frame("mainFrame_detail").WebEdit("WebEdit_5").Set DataTable("departure", dtGlobalSheet)
Browser("管理系统").Page("管理系统").Frame("mainFrame_detail").WebButton("确认").Click
   Datatable.GetSheet("Global").setnextrow

wait 2

Next
Browser("管理系统").Page("管理系统").Frame("mainFrame_detail").WebEdit("WebEdit_5").Set "abc"

为什么这个脚本有的时候就不往下继续执行了。。。就一直重复  set和click
使用   DataTable.SetCurrentRow(i)    也还是没有解决
可是有的时候又可以。。。实在不解！

[ 本帖最后由 ice1216 于 2010-5-28 15:45 编辑 ]

topor

你确定是只是一直重复WebButton("确认").Click    吗？
Browser("管理系统").Page("管理系统").Frame("mainFrame_detail").WebEdit("WebEdit_5").Set DataTable("departure", dtGlobalSheet)
上面这个语句没有被执行吗？

ice1216

MS有。。。不过参数的值都执行过后，就没有值输出了。然后就一直在这两步跳来跳去。。。有的时候跳个4，5次就NEXT了。。。我觉得很诡异

testlab

可能datatable中有空行存在

ice1216

难道从 EXCEL复制数据过去。。。空行也会保留

souchy

对于LZ的问题，我提供两点参考：
1.建议如果要自行控制循环的话，最好不要在全局表中进行，因为全局表默认就是循环所有的
2.Datatable.GetSheet("Global").setnextrow 这个方法我以前也用过，不知道出于什么原因，它并未有效地定位到正确的行，你可以采用另一种方式来实现
Datatable.GetSheet("Global").SetCurrentRow(i)，放置在循环一开始的位置

ice1216

第二种方式我试过了，但是还是会有类似的问题。
请问第一种要如何处理？

yahuu

没调试一下看？

souchy

RowCount=datatable.GetSheet(dtlocalsheet).GetRowCount
i=0
Do until i>=RowCount
i=i+1
datatable.GetSheet(dtlocalsheet).SetCurrentRow(i)
Browser("***").Page("***").Frame("leftFrame").Link("添加礼品").Click
Browser("***").Page("***").Frame("main").WebEdit("tbName").Set  DataTable("礼品名称",dtlocalsheet)
Browser("***").Page("***").Frame("main").WebList("ddlType").Select DataTable("礼品类型", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebList("ddlKind").Select "#"& DataTable("礼品种类", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbMarketPrice").Set DataTable("市场价格", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbChargeValue").Set DataTable("兑换积分", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbChargeMoneyValue").Set DataTable("兑换现金",dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbBalanceValue").Set DataTable("结算价格", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebButton("下一步").Click
Browser("***").Page("***").Frame("main").WebButton("新增").Click
Browser("***").Dialog("Windows Internet Explorer").WinButton("确定").Click
Loop

dtlocalsheet 表示的就是本地表

ice1216

还是不行。。。。求助！