新增的位置不固定的数据，要删除，怎么处理？

celestial1

新增数据然后把它删除 ，对于这样的一个操作，以下情况应该怎么处理：  
每次新增的数据保存后，都是处于列表中不同的行，会出现在哪一行没有固定规律，现在要把每次新增的数据都可以删除，这种情况应该怎么处理？

以下是界面


以下是这段脚本
Browser("星级管理系统").Page("星级管理系统_3").Frame("mainframe").WebButton("添加").Click
Browser("星级管理系统").Page("星级管理系统_3").Frame("mainframe_2").WebEdit("ctl00$MainContent$txtAciTypeNa").Set "QTP类型"
Browser("星级管理系统").Page("星级管理系统_3").Frame("mainframe_2").WebEdit("ctl00$MainContent$txtaRemark").Set "QTP类型"
Browser("星级管理系统").Page("星级管理系统_3").Frame("mainframe_2").WebButton("保存").Click

我是低手， 请稍微详细的提供步骤或语句。万分感谢！

[ 本帖最后由 celestial1 于 2010-8-11 08:29 编辑 ]

TIB

通过WebTable的ChildItem可遍历表格的单元格，这样可以找出你要的记录所在的位置

feiyunkai

'遍历单元格效率较低，可使用GetRowWithCellText方法取数据所在行，然后进行删除操作
'代码如下（没有翻页）
row=Browser("***").Page("***").WebTable("***").GetRowWithCellText("测试1") '取“测试1”所在的行号

if row<>-1 then
     Browser("***").Page("***").WebTable("***").ChildItem(row,"5","WebElement",0).Click  '因为截图上看不出删除按钮在哪一列，所以假设删除按钮在表格的第5列
else
         print "该行不存在"
end if

'有翻页的代码如下：
For i=1 to 100000
      row=Browser("***").Page("***").WebTable("***").GetRowWithCellText("测试1")
      If row<>"-1" Then
             Browser("***").Page("***").WebTable("***").ChildItem(row,5,"WebElement",0).Click '假设删除按钮在表格第5列,CLASS属性为WebElement
              If "翻页控件可用" Then
                       '翻页操作
       else
                       Exit for
              End If
      End If
Next

[ 本帖最后由 feiyunkai 于 2010-8-9 17:16 编辑 ]

celestial1

原帖由 zhuzhenh 于 2010-8-6 14:03 发表
说一下想法
参数化输入的数据 然后在webtable中遍历所输入的内容 拿到行号 然后选择对应行的删除按钮去click

步骤是什么 写一下可以不？

celestial1

4楼的
'遍历单元格效率较低，可使用GetRowWithCellText方法取数据所在行，然后进行删除操作
'代码如下（没有翻页）
row=Browser("***").Page("***").WebTable("***").GetRowWithCellText("测试1") '取“测试1”所在的行号
if row<>-1 then
Browser("***").Page("***").WebTable("***").ChildItem(row,"5","WebElement",0).Click  '因为截图上看不出删除按钮在哪一列，所以假设删除按钮在表格的第5列
else
print "该行不存在"
end if
在你的脚本里，取到的那个行， 难道还要用手输进去再运行脚本啊？ 这样肯定不行。是不是还有点自动采用得出结果的行数的脚本没写出来。

请大家帮一下忙，到底怎么操作或改下脚本，详细点 谢谢了

feiyunkai

你没认真看脚本吧？代码中没地方需要手动输入啊，因为你截图没截全，所以我不知道你删除按钮在表格中的第几列，所以假设在第5列，你自己根据实际情况修改下就行了
'取到测试1所在行号
row=Browser("***").Page("***").WebTable("***").GetRowWithCellText("测试1")

'如果数据存在，则删除
if row<>-1 then
'红字修改为删除按钮所在的列
      Browser("***").Page("***").WebTable("***").ChildItem(row,"5","WebElement",0).Click  
else
       print "该行不存在"
end if

[ 本帖最后由 feiyunkai 于 2010-8-11 13:33 编辑 ]