|
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出来值为空的,取不到,该怎么得到查询结果为多页时的总行数呢。 |
|