每次循环要选择不同数量的编辑框输入数据,怎么处理?

jxt

现在我想在每次循环选择不同数量的编辑框怎么解决???
比如我第一次循环页面中有2个编辑框我全部输入数据,第2次循环页面有4个编辑框我也要全部输入数据,这时候我该怎么办?
谢谢大家了!!
相关代码如下
'Browser("xxx").Page("xxx").Frame("MainFrame_9").WebEdit("ID_IncomePayDoc$TransItemsList_2").Set "100"

[ 本帖最后由 jxt 于 2007-9-14 15:03 编辑 ]

ls_721521

还有个问题:QTP8.2有中文版的吗?

ls_721521

不好意思.我发错地方了...

rivermen

for i=1 to 10   
     for j=1 to i
           选择一个未被选中的复选框
           ......

     next
next

lengz

首先是要确定页面有几个需要输入的编辑框，我能想到的有两种情况，一种是存在有规律的编辑框属性，如ID_IncomePayDoc$TransItemsList_1到ID_IncomePayDoc$TransItemsList_4，那用GetROProperty就能取到编辑框的总数，另一种是所有的编辑框有一个相同的属性，比如name：＝WebEditname，那可能麻烦点，
                Dim WebEdit_num
                Set desc = Description.Create()
                desc("micclass").Value = "WebEdit"
                desc("name").Value = "WebEditname"
                WebEdit_num=Browser("Browser").Page("url:=.*").ChildObjects(desc).

上边代码中WebEdit_num的值就是WebEdit的总数了，
然后作循环就可以了，顶多是加个INDEX：＝N就行了，


以上代码没有在qtp上跑过，可能不对，有错误的地方大家海涵啊～

sterson

dim i , isNext
i=1
isNext=true
do while (isNext)
   select case i
      case 1: call SetTwoEdit()   '编辑两个编辑框
      case 2: call SetForeEdit()   '编辑四个编辑框
   end select
   i=i+1
loop
sub SetTwoEdit()
  'do something here
  isNext=true
end sub

sub SetForeEdit()
  'do something here
   isNext=false    '退出循环
end sub

jxt

楼上我刚才是举的例子,实际中每次循环编辑框的数量是不定的!!用case恐怕不行!!!

sterson

哦..那可以参考我楼上的lengz 的方法..

hsjzfling

Set desc = Description.Create()
desc("micclass").Value = "WebEdit"
Set EditCollection = Browser("xxx").Page("xxx").Frame("MainFrame_9").ChildObjects(desc)
NumberOfEdits = EditCollection.Count
For i = 0 To NumberOfEdits - 1
   EditCollection(i).Set "100"
Next

[ 本帖最后由 hsjzfling 于 2007-9-14 17:27 编辑 ]

夜来烧

原帖由 hsjzfling 于 2007-9-14 17:25 发表
Set desc = Description.Create()
desc("micclass").Value = "WebEdit"
Set EditCollection = Browser("xxx").Page("xxx").Frame("MainFrame_9").ChildObjects(desc)
NumberOfEdits = EditCollection.Count
...

这样基本就可以了，将Browser("xxx").Page("xxx").Frame("MainFrame_9")替换为实际需要自动填写的页面就可以了，赞个

zhangj8826

sdlkfj2

jxt

还有一个复选框的问题:我知道解决的方法和编辑框类似,可是怎么都没有调试通过!!!!!
我录制原始的脚本如下

'Browser("XXX").Page("XXX").Frame("MainFrame_39").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_40").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_41").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_42").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
'Browser("XXX").Page("XXX").Frame("MainFrame_43").WebCheckBox("ID___ViewsIncomeManage_UserCon").Set "ON"
修改成

Dim objDesc, objWCBs, i, iCount
Set objDesc = Description.Create()
objDesc("micclass").Value = "WebCheckbox"
Set objWCBs = Browser("XXX").Page("XXX").ChildObjects(objDesc)
iCount = objWCBs.Count
For i = 0 To iCount - 1
    objWCBs(i).Set "ON"
Next
执行完后,复选框一个都没有被选中!!!!!是怎么回事呀!!!!谢谢!!!

[ 本帖最后由 jxt 于 2007-9-17 20:39 编辑 ]