|
【求助】关于QTP循环问题
谢谢你看此帖:
在QTP中,我用了下面IF循环读取Global表中的数据,当判断我定义的“行政区”数据是不是为空,为空时就退出循环,这时候表中有两个数据。
Dim xzq
xzq=DataTable("行政区", dtGlobalSheet)
If ( xzq = "" )Then
Exittest
End If
然后我又用FOR循环循环读入Action1表的数据。上面和下面的循环的关系是:当上面输入第一条数据时候,下面For循环,循环一次,输入数据
但问题就来了,上面IF循环输入第二条数据了,下面又循环了,且输入数据一样,我要的是当上面IF循环输入第二条的时候,下面的FOR循环输入的内容不一样。当然,我希望能读入Action2的数据,来解决
Dim b,i
b=datatable.GetSheet(dtLocalSheet).getrowcount
For i=1 to b
×××××××
datatable.getSheet(dtLocalSheet).SetNextRow
Next
你能帮忙吗?怎么样才可以读入Action2表中的数据,来使IF循环后的数据不一样
如果我说的不明白的。我可以再附代码给你看看
------------------------------------------------------------------------
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_4").Check CheckPoint("成都市房屋专项维修资金系统v1.0_4")
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_4").WebEdit("ID___Login$txtUserName").Set "test1"
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_4").WebEdit("ID___Login$txtPassWord").SetSecure "46f32b5c1a26858ee9ca83ad"
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_4").Image("ID___Login$btnLogin").Click 11,19
'定义物业区域,当新建物业区域是,判断【行政区】是否有数据,当为空的时候就退出
Dim xzq
xzq=DataTable("行政区", dtGlobalSheet)
If ( xzq = "" )Then
Exittest
End If
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("TopFrame").WebElement("二手房管理").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("LeftFrame").Check CheckPoint("LeftFrame")
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("LeftFrame").WebElement("二手房信息采集").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("新建物业区域信息").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldEstateAreaAdd$OldEstateA").Select DataTable("行政区", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldEstateAreaAdd$OldEstateA_2").Select DataTable("街道办事处", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldEstateAreaAdd$OldEstateA").Set DataTable("物业区域名称", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldEstateAreaAdd$OldEstateA_2").Set DataTable("街道", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldEstateAreaAdd$OldEstateA_3").Set DataTable("号", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldEstateAreaAdd$OldEstateA_4").Set DataTable("附号", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldEstateAreaAdd$OldEstateA_5").Set DataTable("备注", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("保 存").Click
Browser("成都市房屋专项维修资金系统v1.0").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldEstateAreaList$drpTbl").Select "物业区域地址"
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldEstateAreaList$txtWhere").Set DataTable("街道", dtGlobalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("WebButton").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("monthes").Select "一月"
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").Link("3").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("WebButton_2").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("years").Select "2009"
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("monthes_2").Select "六月"
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").Link("28").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("查 询").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").Link("分户").Click
Dim b,i
b=datatable.GetSheet(dtLocalSheet).getrowcount
For i=1 to b
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("新建分户信息").Click
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtMo").Set DataTable("单元号", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtFl").Set DataTable("楼层号", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtRo").Set DataTable("室号", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtAd").Set DataTable("详细地址", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtBu").Set DataTable("建筑面积", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldHouseAdd$OldHouse1$dplRo").Select DataTable("房屋类型", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldHouseAdd$OldHouse1$dplRo_2").Select DataTable("房屋结构", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldHouseAdd$OldHouse1$dplRo_3").Select "普通住宅"
Browser("成都市房屋专项维修都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtOw").Set DataTable("业主姓名", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebList("ID_OldHouseAdd$OldHouse1$ddlPa").Select DataTable("证件类型", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtPa").Set DataTable("证件号码", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$tbxDC").Set DataTable("购房金额", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebEdit("ID_OldHouseAdd$OldHouse1$txtRe").Set DataTable("备注", dtLocalSheet)
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("保 存").Click
Browser("成都市房屋专项维修资金系统v1.0").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
datatable.getSheet(dtLocalSheet).SetNextRow
Next
Browser("成都市房屋专项维修资金系统v1.0").Page("成都市房屋专项维修资金系统v1.0_5").Frame("MainFrame").WebButton("提交审核").Click
[ 本帖最后由 walker1020 于 2007-9-22 14:44 编辑 ] |
|