软件测试论坛 › [QuickTest Professional] › 如何动态定位表中的行

helius 发表于 2008-10-9 11:26:05

如何动态定位表中的行

Set LinkDesc=description.Create'描述树形列表link
LinkDesc("html tag").value="A"
Set LinkObj=Browser("代码群维护").Page("代码群维护").Frame("left").ChildObjects(LinkDesc)
msgbox LinkObj.count
For i=0 to LinkObj.count-1
      name=LinkObj(i).GetRoproperty("name")
LinkObj(i).click'打开操作窗口
'新增
Browser("代码群维护").Page("代码群维护").Frame("rrr").WebButton("添加(I)").Click
Browser("代码权维护").Page("代码权维护").WebEdit("id1").Set "88888"
Browser("代码权维护").Page("代码权维护").WebEdit("id2").Set name&"测试"
Browser("代码权维护").Page("代码权维护").WebEdit("id4").Set "testing"
Browser("代码权维护").Page("代码权维护").WebEdit("id3").Set "testing"
Browser("代码权维护").Page("代码权维护").WebButton("确定(O)").Click
'修改
Browser("代码群维护").Page("代码群维护").Frame("rrr_2").Image("edit").FireEvent "onmouseover"
Browser("代码群维护").Page("代码群维护").Frame("rrr_2").Image("edit").Click
Browser("代码权维护").Page("代码权维护_2").WebEdit("id4").Set "1000"
Browser("代码权维护").Page("代码权维护_2").WebButton("确定(O)").Click
'删除
Browser("代码群维护").Page("代码群维护").Frame("rrr_3").WebCheckBox("mycheckbox").Set "ON"
Browser("代码群维护").Page("代码群维护").Frame("rrr_3").WebButton("删除(D)").Click
Next

helius 发表于 2008-10-9 11:31:38

我的操作步骤是 新增->修改->删除
遇到的问题是 修改和删除时不能指定到新增的行

ts47284 发表于 2008-10-9 11:41:49

路过来看看了呀

helius 发表于 2008-10-9 13:39:18

Set LinkDesc=description.Create
LinkDesc("html tag").value="A"
Set LinkObj=Browser("代码群维护").Page("代码群维护").Frame("left").ChildObjects(LinkDesc)
msgbox LinkObj.count
For i=0 to LinkObj.count-1
        name=LinkObj(i).GetRoproperty("name")
LinkObj(i).click
Browser("代码群维护").Page("代码群维护").Frame("rrr").WebButton("添加(I)").Click
Browser("代码权维护").Page("代码权维护").WebEdit("id1").Set "88888"
Browser("代码权维护").Page("代码权维护").WebEdit("id2").Set name&"测试"
Browser("代码权维护").Page("代码权维护").WebEdit("id4").Set "testing"
Browser("代码权维护").Page("代码权维护").WebEdit("id3").Set "testing"
Browser("代码权维护").Page("代码权维护").WebButton("确定(O)").Click
Set IMGDesc=description.Create
IMGDesc("html tag").value="IMG"
Set IMGObj=Browser("代码群维护").Page("代码群维护").Frame("rrr_2").ChildObjects(IMGDesc)
IMGNum=IMGObj.count
msgbox IMGNum
IMGObj(IMGNum-1).Click

'Browser("代码群维护").Page("代码群维护").Frame("rrr_2").Image("edit").FireEvent "onmouseover"
'Browser("代码群维护").Page("代码群维护").Frame("rrr_2").Image("edit").Click
Browser("代码权维护").Page("代码权维护_2").WebEdit("id4").Set "1000"
Browser("代码权维护").Page("代码权维护_2").WebButton("确定(O)").Click
Set CheckDesc=description.Create
CheckDesc("html tag").value="INPUT"
Set CheckObj=Browser("代码群维护").Page("代码群维护").Frame("rrr_3").ChildObjects(CheckDesc)
CheckNum=CheckObj.count
msgbox CheckNum
CheckObj(CheckNum-3).Set"ON"
'Browser("代码群维护").Page("代码群维护").Frame("rrr_3").WebCheckBox("mycheckbox").Set "ON"
Browser("代码群维护").Page("代码群维护").Frame("rrr_3").WebButton("删除(D)").Click
Next

不知道还有更好的办法没？

查看完整版本: 如何动态定位表中的行