51Testing软件测试论坛

标题: webtable多页的情况怎么得出总行数 [打印本页]

作者: smart55 时间: 2009-9-11 13:11
标题: webtable多页的情况怎么得出总行数
Dim j,page,sum
sum=0
page=Browser("CFS-CRM V 6.4.0.05").Page("CFS-CRM V 6.4.0.05_2").Frame("main").WebTable("客户名称").GetROProperty("items count")
msgbox(page)
For i=1 to page
j=Browser("CFS-CRM V 6.4.0.05").Page("CFS-CRM V 6.4.0.05_2").Frame("main").WebTable("客户名称").RowCount-1
sum=sum+j
msgbox(j)
Next
sum=sum+j
msgbox(sum)

以上是当查询结果有多页的情况时，计算webtable的总行数的代码。
page=Browser("CFS-CRM V 6.4.0.05").Page("CFS-CRM V 6.4.0.05_2").Frame("main").WebTable("客户名称").GetROProperty("items count")
期望得到webtable的页数，这句代码在论坛上copy过来的，可是msgbox出来值为空的，取不到，该怎么得到查询结果为多页时的总行数呢。

作者: bagwell333 时间: 2009-9-11 13:47
你跟踪一下，可能是第一次循环就没取到j值。察看对象描述是否正确。

作者: smart55 时间: 2009-9-11 14:00
GetROProperty("items count")

我的webtable里没有items count 这个属性，能捕捉到页数吗？
就算获得页面，是不是也要点击下面的翻页link，才能获得第二页的行数？

好像很麻烦啊，懊恼

作者: Haereticus 时间: 2009-9-11 21:40
你可以判断下一页这个对象存在不，如果存在，就点下一页，在去Table的行数，直到下一页不存在
dim i
i=0
do
get TableRow
i=i+TableRow
NextPage.click
get NextPageFlag
Loop until NextPageFlag =False

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)