51Testing软件测试论坛

标题: 循环删除WebTable里的第一行 --性能调优 [打印本页]
作者: 赵佳乐SMILE    时间: 2012-12-19 15:06
标题: 循环删除WebTable里的第一行 --性能调优
本帖最后由 赵佳乐SMILE 于 2012-12-19 15:07 编辑

测试数据都是已"测试"开头
表头 1表头 2操作
测试1编辑（link）删除（link）
测试2

分页控件

利用WebTable("").RowCount<>2(RowCount统计时包含了表头和分页控件)

用这个条件无法停下来 因为最后一次删除后
表头 1表头 2操作
暂无数据！

  分页控件

于是考虑判断删除按钮是否存在

用  对象的exist  看不见删除按钮的时候也报True
用  Object.currentStyle.display 报的inline(如果输出为None，则表示不显示， 输出非None， 表示显示。)
用 visible属性  看不见删除按钮的时候也报True


最后是用innerText判断


  2. Dim tblCount,chkDelBtn

  4. '设置查询条件
  5. Browser("").Page("").Frame("mainFrame").WebEdit("WebEdit").Set "测试"
  6. Browser("").Page("").Frame("mainFrame").WebList("dataDicWrapper.type").Select �"
  7. Browser("").Page("").Frame("mainFrame").Link("查询").Click

  9. '取出所有条数，包含表头和分页控件
  10. tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount
  11. 'count=Browser("").Page("").Frame("mainFrame").WebTable("序号").GetROProperty("rows")
  12. '
  13. 'chkDelBtn=Browser("").Page("").Frame("mainFrame").Link("删除").Exist(0) ‘删除按钮不存在也报True
  14. 'chkDelBtn=Browser("").Page("").Frame("mainFrame").Link("删除").Object.currentStyle.display'删除按钮不存在报的inline
  15. 'chkDelBtn=Browser("").Page("").Frame("mainFrame").Link("删除").GetROProperty("visible") '删除按钮不存在也报True

  17. '比较页面信息是否是"暂无记录!"
  18. chkDelBtn=Browser("").Page("").Frame("mainFrame").WebElement("WebTable").GetROProperty("innerText")

  20. '一定要trim否则字符串判断结果不正确
  21. While ( tblCount<>2) and (trim(chkDelBtn)<>"暂无记录!")
  22. '选择第一条进行删除
  23. Browser("").Page("").Frame("mainFrame").Link("删除").Click
  24. Browser("").Page("").WebButton("确定").Click

  26. '设置查询条件
  27. Browser("").Page("").Frame("mainFrame").WebEdit("WebEdit").Set "测试        "
  28. Browser("").Page("").Frame("mainFrame").WebList("dataDicWrapper.type").Select �"
  29. Browser("").Page("").Frame("mainFrame").Link("查询").Click

  31. '取出所有条数，包含表头和分页控件
  32. tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount
  33. 'count=Browser("").Page("").Frame("mainFrame").WebTable("序号").GetROProperty("rows")

  35. '比较页面信息是否是"暂无记录!"
  36. chkDelBtn=Browser("").Page("").Frame("mainFrame").WebElement("WebTable").GetROProperty("innerText")

  38. Wend
复制代码



成功时成功了，但是运行到这一句，大概要30秒
chkDelBtn=Browser("").Page("").Frame("mainFrame").WebElement("WebTable").GetROProperty("innerText")
作者: 泰然    时间: 2012-12-20 09:24
你看看你的对象识别器和对象库中，webelement是否支持智能识别。我估计是智能识别导致的等待。

应该说你的做法不对。你的做法是在对象库中已经保存了一个webelement("WebTable")对象，它有些一些属性，但在没删除到最后前，其实页面中找不到这个对象，你可以没删光表格前highlight一下看看，由于没找到，且允许智能识别，导致最后是智能识别给分配了一个对象，慢就慢在找不到对象的等待过程中。

从你的描述看，我认为这里应该判断行数是否为3行，以及第二行第一列的表格单元中对象的innertext是否为“暂无数据！”，获取行2列1的表格单元中对象的方法是set oWebElemA=WebTable("序号").ChildItem (2,1, "webelement", 0)，然后对oWebElemA做getROProperty
作者: 赵佳乐SMILE    时间: 2012-12-20 10:44
回复 2# 泰然


    十分谢谢 我得慢慢消化消化
作者: 赵佳乐SMILE    时间: 2012-12-20 16:50
回复 2# 泰然


ChildItem  实在是不会用，就用了.GetCellData(2,1)

此外之前对象库里取的WebTable("序号") 不对

换成暂无数据！页面的那个 速度快了很多


另外行数为3的这个条件 可以不要

谢谢大师指点。。。
作者: temp20121017    时间: 2012-12-20 23:32
childitem很不错
作者: yzwangxf    时间: 2012-12-28 15:32
问题可能出在句上：
tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount

我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，会异致接下来的WebTable刷新了问题，（手工操作不会），
当刷新出问题时，后面再调用属性或方法时，极有可能出错。

所以后，我尽量不去调用WebTable的属性，特别是得到记录数的属性，改成抓图。
作者: yzwangxf    时间: 2012-12-28 15:33
问题可能出在句上：
tblCount=Browser("").Page("").Frame("mainFrame").WebTable("序号").RowCount
作者: yzwangxf    时间: 2012-12-28 15:33
我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，会异致接下来的WebTable刷新了问题，（手工操作不会），
当刷新出问题时，后面再调用属性或方法时，极有可能出错。
作者: yzwangxf    时间: 2012-12-28 15:33
我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，会异致接下来的WebTable刷新了问题，（手工操作不会），
作者: yzwangxf    时间: 2012-12-28 15:34
我曾经碰到过，在脚本执行过程中，如果调用了WebTable属性/方支时，
会异致接下来的WebTable刷新了问题，（手工操作不会），
当刷新出问题时，后面再调用属性或方法时，极有可能出错。

所以后，我尽量不去调用WebTable的属性，特别是得到记录数的属性，改成抓图。
作者: yzwangxf    时间: 2012-12-28 15:37
抱欠，上面重复不是故意。
每次提交后，不能立即出现，所以就重复发了下。



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2