51Testing软件测试论坛

标题: qtp中的for循环的问题,请帮忙解决! [打印本页]

作者: wang7931_cn 时间: 2008-5-29 14:12
标题: qtp中的for循环的问题,请帮忙解决!
qtp中的for循环的问题,请帮忙解决!
[attach]42509[/attach]
现在在这样的一个表格中,我要取出后面的链接,去改变他的"禁用"状态,但是当改变了之后,表格的行数会减少,然后我要怎样去把他一个个处理完,再跳出呢?
我的代码如下:
rownum = Browser("Sh").Page("Sh1").WebTable("登录名").RowCount
For i=1 to rownum
aa = Browser("Sh").Page("Sh1").WebTable("登录名").GetCellData(i, 4)
If (aa="禁用") Then
  Set bb = Browser("Sh").Page("Sh1").WebTable("登录名").ChildItem(i, 13, "WebElement", 0)
  bb.click
  Browser("Sh").Page("Sh2").WebRadioGroup("status").Select "1"
  Browser("Sh").Page("Sh2").WebButton("确定").Click
  Browser("Sh").Page("Sh2").Sync
  Browser("Sh").Page("Sh1").WebButton("查看禁用用户").Click
  wait 5
End If
Next
请指教,谢谢!

作者: 国米一卡通 时间: 2008-5-29 14:45
标题: 回复 1# 的帖子
你的rownum怎么没有减少啊？在你确定之后重新浏览，rownum应该减少了呀！

作者: denisye 时间: 2008-5-29 14:56
Set Desc=description.create
Desc("text").value="禁用"
Desc("micclass").value="link"
Set WebLinks = Browser("Sh").Page("Sh1").WebTable("登录名").ChildObjects(Desc)
For Each WebLink in WebLinks
...............

作者: wang7931_cn 时间: 2008-5-29 16:31
试了一下,不行,
水平有限啊,能不能说详细一点?
谢谢!
急啊

作者: phoenix81 时间: 2008-5-29 18:01
就是，也特想知道！

作者: arthur766 时间: 2008-5-29 21:32
取rowNum
while rowNum>0
......‘这里的操作会使行数减少
再取rowNum
Wend

作者: wang7931_cn 时间: 2008-5-30 10:08
嗯,好了!
谢谢!
我是另外加了一个变量,把它减去就好了!
谢谢!

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)