页面上webtable里面显示的信息条数如何累加？即(共×条)

pxwcypx

遇到问题先看图，在看代码，希望大家帮我看看哈。

==============================================================================
我自己的代码怎么老是取“0”啊？
set webcek=description.Create
webcek("micclass").value="WebCheckBox"
Set webobj=Browser("系统登陆").Page("客户请求").WebTable("选择").childobjects(webcek)
num=webobj.count
msgbox num
其实我是想根据前面的CheckBox数来累加，事实证明我失败了。
我的需求是：不能通过数据库来显示。因为我要这个值和下面的数据库搜索的值进行对比，要是从数据库中取得话，也就没对比的意义了，希望老大么指点下啊。
Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER=sql server;SERVER=192.168.150.247;DATABASE=KJCRM0809;user id=sa ; password=saqa"
Conn.open str                                  '链接数据库
Set Rs = CreateObject ("ADODB.Recordset" )
sql="select count( * )from tb_crm_EmployeeInfo left join tb_crm_CustomerRequestInfo on tb_crm_EmployeeInfo.EmployeeCode=tb_crm_CustomerRequestInfo.AssigneeCode where EmployeeName='IUOUI' and tb_crm_CustomerRequestInfo.deleteflag!='1'"
Rs.open sql,conn                         '   ,执行sql语句
Set a=createobject("wscript.shell")
b=a.popup("数据库中实际有"&Rs(0)&"条信息！",3)   '打印出数据库中的查询结果
=======================================================
有什么好的方法大家就教教我吧，再真实的项目需求中问题真的太多太多，现在才发现没有编程的基础是根本没法做下去的，所以现在什么都是从头学起

[ 本帖最后由 pxwcypx 于 2007-11-7 13:51 编辑 ]

pxwcypx

啊呀图没传上

marygao929

webcek("micclass").value="WedCheckBox"
这句中的"WedCheckBox"错了吧？应该是WebCheckBox

pxwcypx

不是这个原因，我换回来结果一样取不到值啊

hsjzfling

1、 3楼说的确实是原因之一，不改肯定错

2、 在对象库中查看下其中某个WebCheckBox的对象层次结构，然后截图贴上来看看

pxwcypx

其实对象库中checkBox父结点不是webtable而是page,我通过设置检查点，查询到checkBox的父结点又是webtable,


如果checkBox的父结点为page那么取到500多条信息，要是webtable,就是0.


，老大我该选哪个，感觉都不对

[ 本帖最后由 pxwcypx 于 2007-11-7 15:25 编辑 ]

pxwcypx

受不了了，传个图片都传不上啊
终于传上了

[ 本帖最后由 pxwcypx 于 2007-11-7 15:25 编辑 ]

pxwcypx

问题我自己来回答吧嘿嘿，经过重新的检查一遍自己的脚本，还是应该以对象库中的父结点作为父结点，上面的问题解决了，看下2#的图示，msgbox显示为9条，因为把全选也加进来了，，现在问题在于翻页，如何把翻页后的条数也显示出来，具体的说怎么得到第2.3.4.。。。页面上的条数信息累加起来啊？

[ 本帖最后由 pxwcypx 于 2007-11-7 16:19 编辑 ]

jackymail

原帖由 pxwcypx 于 2007-11-7 16:06 发表
问题我自己来回答吧嘿嘿，经过重新的检查一遍自己的脚本，还是应该以对象库中的父结点作为父结点，上面的问题解决了，看下2#的图示，msgbox显示为9条，因为把全选也加进来了，，现在问题在于翻页，如何把翻页后的条数 ...

你没有把WebTable添加到对象库就使用引发的问题，不是层次的问题，Checkbox在WebTable之下，应该可以按照你的方式使用，只是你没有添加WebTable对象而已！

翻页以后browser和page都没有改变，可以正常使用，添加翻页动作，然后重新执行统计操作。

pxwcypx

哦，原来这样啊，但现在我的问题是。如何让它按书序翻到最后一页，或者有其他更好的办法能把页面上查询的所有信息都统计出来而不通过翻页操作，要是有就更好 ，没有的话，我还真遇到难题了。
因为：页码数=（总条数\（每页显示条数+1））+1，现在就是不知道总条数啊，如何让它执行翻页操作啊，关键这个页码数怎么搞定啊，还是我的思路有问题啊？
翻页操作：Browser("客户请求").Page("客户请求").WebList("ctl00$ContentPlaceHolder1$ddlC").Select "1"

pxwcypx

还是自己来回答吧，果然思路上有点问题，要取得页码的值，及使在下拉框中它是变动的，也能通过GetROProperty ("items count")得出来，
修改为：
a=Browser("客户请求").Page("客户请求").WebList("ctl00$ContentPlaceHolder1$ddlC").GetROProperty ("items count")幸好看到了相同的文章，希望对和我一个水平线上的同行么有点帮助，
在统计运算下问题就解决了可以和数据库中做对照了。