关于datatable的列

workstudy · 发表于 2008-5-22 08:50:33

在datatable中有两列A和B，都在同一sheet中，结构如下：
　　　A　    　  B
1　　some    may
2    thing       too
3       try       catch
4    excep
5
想取得B列共有多少行，如何取？谢谢各位解达!

[ 本帖最后由 workstudy 于 2008-5-22 08:52 编辑 ]

风过无息 · 发表于 2008-5-22 08:57:03

最直接的办法自己写个方法,判断下.

workstudy · 发表于 2008-5-22 09:00:49

那怎么写？QTP没有自带的函数吗？

workstudy · 发表于 2008-5-22 14:55:27

顶起来！

arthur766 · 发表于 2008-5-22 15:07:35

The following example uses the GetParameterCount method to find the total number of parameters (columns) in the run-time Data Table sheet (MySheet) and writes it to the report.

paramcount = DataTable.GetSheet("MySheet").GetParameterCount

Reporter.ReportEvent 2, "There are " &paramcount, "columns in the data sheet."

workstudy · 发表于 2008-5-22 15:21:55

此函数得出的是runtime-table 里有多少列，没有得出我想看其中某列有多少行的结果啊

arthur766 · 发表于 2008-5-22 15:34:14

rowcount = DataTable.GetSheet("MySheet").GetRowCount

arthur766 · 发表于 2008-5-22 15:38:43

看错了，还是自己写个好了

zte_boy · 发表于 2008-5-22 15:45:21

如果B的行数大于A，那直接datatable.GetSheet("Action1").GetRowCount就可以得出B的行数
如果B的行数小于A，那么：
Dim i ,Brow
Brow = 0
Arow= datatable.GetSheet("Action1").GetRowCount
For i = 1 to Arow
datatable.GetSheet("Action1").SetCurrentRow(i)
Bvalue = datatable.RawValue("B" , "Action1")

If Bvalue <> "" Then
Brow=Brow+1
elseif Bvalue = "" then
reporter.ReportEvent micDone , "B行数" , Brow
Exit for
End If
datatable.GetSheet("Action1").SetNextRow
Next

workstudy · 发表于 2008-5-22 16:13:32

如果出现B行前两行有字符，第三行和第四行没有，而第五行又有字符，那就会漏掉啊！
要怎么判断呢？

zte_boy · 发表于 2008-5-22 16:36:39

LZ自己应该多想想，其实稍微改下就好了
Dim i ,Brow
Brow = 0
Arow= datatable.GetSheet("Action1").GetRowCount
For i = 1 to Arow
datatable.GetSheet("Action1").SetCurrentRow(i)
Bvalue = datatable.RawValue("B" , "Action1")

If Bvalue <> "" Then
Brow=Brow+1
elseif Bvalue = "" then
'msgbox Brow
Brow=Brow
End If
datatable.GetSheet("Action1").SetNextRow
Next
reporter.ReportEvent micDone , "B行数" , Brow

workstudy · 发表于 2008-5-22 17:05:19

非常感谢zte_boy的回复！
我在想如何中间的两行空数据也是测试数据呢？再这样想的话就没完了

哈哈，有点叫劲了。。。
datatable.GetSheet("Action1").SetNextRow　这句好像多余了，呵呵

[ 本帖最后由 workstudy 于 2008-5-22 17:07 编辑 ]

zte_boy · 发表于 2008-5-22 17:07:00

中间两行是空行也没问题啊，这段代码也是可以实现的啊

workstudy · 发表于 2008-5-22 17:12:12

恩，代码我已经试过了。
我是说中间两行的空内容假如也是要计算在行数内的，这样的话就没法算了吧，呵呵，因为B列
没有A列长，B列少于A列的行数按我说的那样也会计算在内。说明这个“需求”是有问题的吧

meetial · 发表于 2008-7-16 10:47:35

'======================想读哪行就哪行，如果测出bug跟我留言
Dim i ,Brow
Brow = 0
Arow= datatable.GetSheet("Action1").GetRowCount
For i = 1 to Arow

      datatable.GetSheet("Action1").SetCurrentRow(i)
      Bvalue = datatable.RawValue("B" , "Action1")
   if Bvalue <>  "" and i<Arow then
                     ' msgbox "Brow:"&Brow&"ROW:"&Arow&"i:"&i
                     Brow=i
Elseif Bvalue <>  "" and i=Arow then

Brow=Arow
   End If
      datatable.GetSheet("Action1").SetNextRow
Next
msgbox  "B行数:" &Brow

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 关于datatable的列

相关帖子

站长推荐 /1