标题: 关于CURRENT ROW [打印本页] 作者: fly0306 时间: 2010-1-13 14:22 标题: 关于CURRENT ROW 刚刚从网上看了段代码，自己尝试了一下，结果当执行完第2行后，current row重新跳到第一行了，然后就顺序正常执行。不知道为什么，请大家帮帮忙。谢谢。
代码如下：
DataTable.GetSheet(TEST_SHEET).SetCurrentRow( 1 )
For i=1 to row_count
If DataTable("IDX",TEST_SHEET) = "√" Then
testDataSheetName = DataTable("bizDataTable",TEST_SHEET)
msgbox i
msgbox testDataSheetName
If NOT testDataTable.Exists(testDataSheetName) and testDataSheetName<>"" Then
tempArray = split(testDataSheetName,".") 'tempArray(0)是sheet名称
If Ubound(tempArray)=0 and tempArray(0)<>"" Then
call testDataTable.add(testDataSheetName,tempArray(0))
call DataTable.AddSheet(tempArray(0))
call DataTable.ImportSheet( testCaseFile, tempArray(0), tempArray(0) )
elseif Ubound(tempArray)=1 and tempArray(1)<>"" Then
call testDataTable.add(testDataSheetName,tempArray(1))
testDataFilePath = pathFind(Environment("testDataFolderName"),tempArray(0),"xls")
call DataTable.AddSheet(tempArray(1))
call DataTable.ImportSheet( testDataFilePath, tempArray(1), tempArray(1) )
logPrint("加载测试数据完成。"&tempArray(1))
else
logPrint("数据文件的dataTable列格式错误。"&testDataSheetName)
End If
End If
End If
msgbox DataTable.GetSheet(TEST_SHEET).GetCurrentRow
DataTable.GetSheet(TEST_SHEET).SetNextRow
msgbox DataTable.GetSheet(TEST_SHEET).GetCurrentRow
Next作者: fly0306 时间: 2010-1-13 14:59
仔细研究了一下，只要是添加新的sheet页，test_table的current row就重置为1了，不知道是为什么？在线等……