数据表GetcurrentRow问题！！麻烦大家来看看，帮助一下。谢谢。。。

zhengxiao025

我需要用到一个循环条件。为Do While DataTable.GetSheet("Action1").GetcurrentRow<=DataTable.GetSheet("Action1").GetRowCount。。。。。但是最后出来了死循环。检查时发现。循环到最大行再用DataTable.GetSheet("Action1").SetNextRow时，Do While DataTable.GetSheet("Action1").GetcurrentRow的值变为了1。这是什么原因呀。难道数据表就是这样的。有没有什么解决办法呀。。。。

wyy83

[转]总结DataTable从excel中读取数据的方法
Option explicit
Dim rowcount'存储数据总行数
Dim filepath'获取excel表格路径
Dim i'循环变量
filepath=pathfinder.Locate("webmail_option_preference_hintSendSuccess.xls")
datatable.Import(filepath)'excel表中只有一个sheet有数据使用Import,如果excel中多个sheet有数据，这里就要使用ImportSheet来指定具体导入哪一sheet表的数据了
rowcount=datatable.GetRowCount'统计行数
For i=0  to rowcount-1
        datatable.GetCurrentRow '置当前行为活动行
        send=datatable.Value("send")'这里Value("send")中的send为excel中的列名，是在设计测试数据时确定的
        name1=datatable.Value("name1")'同上        
。。。。。。
datatable.SetNextRow'下一行
        If   datatable.GetCurrentRow>rowcount Then '当前行大于总行数，退出循环
                  Exit for
        End If
Next

[ 本帖最后由 wyy83 于 2008-4-29 16:26 编辑 ]

zhengxiao025

首先，先谢谢您。。。。。我和您用的方法差不多呀。不过到第12行的时候再datatable.SetNextRow，就又变回第1行了。怎么回事儿呢。是不是我程序哪里编的有错误。。。那也不至于改数据表的行数吧。。。

jackymail

没仔细看。大概是因为test的option里面没有设置成只运行一次

hsjzfling

原帖由 zhengxiao025 于 2008-4-29 15:59 发表
我需要用到一个循环条件。为Do While DataTable.GetSheet("Action1").GetcurrentRow

抛开QTP不看，你的程序逻辑没问题；不过基于QTP对DataTable的设定，程序就不应该这样来判断~
前几天才在别人的帖子中提到过，DataTable中若循环到最后一行数据时再用SetNextRow，那么当前行会从第1行开始继续循环~设定就是这样的

zhengxiao025

哦。是这么回事呀。谢谢楼上的解答，不胜感激。。。。

bertha2124

又学到一招，谢谢分享！

badguy

是啊，那就不要这样判断就可以啦