51Testing软件测试论坛

标题: 请教根据一个WEBEDIT的返回值写一个循环 [打印本页]

作者: renshaohai 时间: 2007-10-12 16:33
标题: 请教根据一个WEBEDIT的返回值写一个循环
请教：
想让QTP判断步骤中的一个WEBEDIT的值（数字），并且根据返回值的数字，循环执行步骤。可是写了下面的代码后回放时并没有执行，请指教，哪里出错了？？

Public Function ReturnCollectSizeValue()

Dim  collectSizeValue
Dim  i

i = 0
collectSizeValue = Browser("节目信息新增").Page("节目信息新增").WebEdit("collectSize").GetPOProperty("value")

Do until  i=collectSizeValue

   i=i+1

Browser("节目信息新增").Page("节目信息新增").WebButton("增加一行").Click
Browser("节目信息新增").Page("节目信息新增").WebEdit("multi").Set  i
Browser("节目信息新增").Page("节目信息新增").WebEdit("multiCn_2").Set
Browser("节目信息新增").Page("节目信息新增").WebEdit("multiEn_2").Set "11"
Browser("节目信息新增").Page("节目信息新增").WebEdit("multiTime_2").Set "11"
Browser("节目信息新增").Page("节目信息新增").WebEdit("imageQuality_2").Set "11"
Browser("节目信息新增").Page("节目信息新增").WebEdit("fileSize_2").Set "11"
Browser("节目信息新增").Page("节目信息新增").WebEdit("release_2").Set "11"
Browser("节目信息新增").Page("节目信息新增").WebEdit("ftpRelease_2").Set "11"
Browser("节目信息新增").Page("节目信息新增").WebEdit("playSeq").Set i
Browser("节目信息新增").Page("节目信息新增").WebButton("保存").Click

loop

End Function

作者: jackymail 时间: 2007-10-12 16:43
如果没有报错就是第一次循环没有进行就满足条件退出。
i=collectSizeValue
如果报错，就是webedit的初始值为空，不能进行比较。具体情况具体分析。
你得把部分的输出值打印出来给大家看看。或者来个图什么的。

作者: renshaohai 时间: 2007-10-12 16:57
谢谢楼上！

DEFAULEVALUE 为空我倒是没有考虑到。
但这次执行后报错：
对象不支持此属性或方法：collectSizeValue = Browser("节目信息新增").Page("节目信息新增").WebEdit("collectSize").GetPOProperty("value")" 。

已经在对象库中设置了这个 value = RandomNumber(0,10) 了啊。真奇怪

作者: jackymail 时间: 2007-10-12 17:03
GetPOProperty
你是不是写错了，GetTOProperty还是GetROProperty ?????

你如果动态改变value的值，最终的结果是你动态的出错。。连对象都没确定准阿。。看一下帮助吧。

作者: renshaohai 时间: 2007-10-12 17:07
谢谢！问题解决了。是单词拼写错误！汗！
执行过了！

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