51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2126|回复: 4
打印 上一主题 下一主题

[求助] 如何取WebTable的单元格?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-9-10 12:07:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这几天在做一个大量数据输入的操作——按顺序将dtGlobalSheet里20行30列的数据一个一个复制到一个20行30列的WebTable表里。
一开始录入数据时:
'第一行第一列
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009001_1").Set "11"
'第一行第二列
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009001_2").Set "12"
'第二行第一列
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009002_1").Set "21"

如果只修改单元格,不但麻烦,而且会遇到无法识别的问题,如:
'直接写第六行第一列,但并没有录制第六行,会提示该对象无法识别
Browser("XXX").Page("XXX").Frame("XXX").WebEdit("ctl00$cph$grd_P2009006_1").Set "61"

所以,我决定采用WebTable的方式进行,我的方法如下:
Set w_WebTable = Browser("XXX").Page("XXX").Frame("XXX").WebTable("XXX")
For I = 1 To w_WebTable.RowCount
  For J =1 To w_WebTable.ColumnCount(I)
     '此行希望获取WebTable下的该单元格
     Set CellValue = w_WebTable.ChildItem(I, J, "WebEdit" , 0 )
     '此行希望将dtGlobalSheet中的值赋给该单元格
     CellValue.Set DataTable("line"&J, dtGlobalSheet)
  Next
Next

但是获取单元格有问题,不知道该怎么改才能满足需求,希望牛人指点!万分感谢!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-9-10 12:26:45 | 只看该作者
datatable.GetSheet("Global").GetParameter(line).ValueByRow(row)
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-9-10 13:09:51 | 只看该作者

回复 2# 的帖子

呵呵,不好意思,没明白你的意思,麻烦解释一下,谢谢!
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-9-10 14:45:30 | 只看该作者
strRowCount = Browser("Central Manager - Web").Page("Central Manager - Web").WebTable("Host Address").RowCount

'Browser("Central Manager - Web").Page("Central Manager - Web").WebTable("Host Address").HighLight

For intRow = 1 To strRowCount

        strColCount = Browser("Central Manager - Web").Page("Central Manager - Web").WebTable("Host Address").ColumnCount(intRow)

        For intCol = 1 To strColCount
               
'                Print Browser("Central Manager - Web").Page("Central Manager - Web").WebTable("Host Address").GetCellData(intRow, intCol)
                Browser("Central Manager - Web").Page("Central Manager - Web").WebTable("Host Address").ChildItem(intRow,intCol,"WebEdit",0).Set DataTable.GlobalSheet.GetParameter(line).ValueByRow( intCol+(intRow-1)*strColCount)
        Next

Next


应该可以满足你的要求~当然,前提是你的global数据表里面的数值和你需要赋值的webedit一样,而且,你的webtable里面所有的元素都是webedit


你可以把下面的复制进txt,然后改为a.html,然后试试效果:


========================================================
<Table><TR><td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
</TR>
<TR><td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
</TR>
<TR><td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
</TR>
<TR><td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
<td><input></input></td>
</TR></Table>
============================================================

[ 本帖最后由 风雪夜归人 于 2009-9-10 16:03 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2009-9-11 11:14:51 | 只看该作者

回复 4# 的帖子

谢谢,运行成功了!
非常感谢!
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-22 17:02 , Processed in 0.069403 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表