关于CURRENT ROW

fly0306 发表于 2010-1-13 14:22:31

刚刚从网上看了段代码，自己尝试了一下，结果当执行完第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:56

仔细研究了一下，只要是添加新的sheet页，test_table的current row就重置为1了，不知道是为什么？在线等……

页: [1]

51Testing软件测试论坛 's Archiver

关于CURRENT ROW