请教根据一个WEBEDIT的返回值写一个循环

renshaohai

请教：
想让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

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

renshaohai

谢谢楼上！

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

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

jackymail

GetPOProperty
你是不是写错了，GetTOProperty还是GetROProperty  ?????

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

renshaohai

谢谢！问题解决了。是单词拼写错误！汗！
执行过了！