51Testing软件测试论坛

标题: 在弹出的查询窗口，输入查询条件后，执行回车的操作无法回放 [打印本页]

作者: zhangxulanyou 时间: 2010-4-20 21:01
标题: 在弹出的查询窗口，输入查询条件后，执行回车的操作无法回放
用QTP录制.Net系统，在弹出的查询窗口，输入查询条件（从外部excel获取），但是在执行回车的操作时，无法回放回车的操作，也就是无法执行查询操作，只能将获取的数据输入到查询条件上面，请高手帮忙解决，谢谢，在线等待

作者: TIB 时间: 2010-4-21 10:27
把代码贴出来看看

作者: zhangxulanyou 时间: 2010-4-21 16:26
非常感谢TIB老兄的支持和帮助，请赐教

Option explicit
Dim  filepath
Dim  rowcount
Dim  i,dvalue
filepath = pathfinder.Locate("A项目测试用例.xls")
datatable.Importsheet filepath,"sheet1","Action1"
rowcount = datatable.GetSheet("Action1").GetRowCount
SwfWindow("新业务系统").SwfTreeView("SwfTreeView").Expand "02销售业务"
SwfWindow("新业务系统").SwfTreeView("SwfTreeView").Expand "02销售业务;21销售开票"
SwfWindow("新业务系统").SwfTreeView("SwfTreeView").Select "02销售业务;21销售开票;2101销售开票单"
SwfWindow("新业务系统").SwfWindow("销售开票单").SwfEdit("SwfEdit").Type micReturn
For i=1 to rowcount
dvalue=datatable(1,2)
SwfWindow("新业务系统").SwfWindow("销售客户资料查找").Activate
SwfWindow("新业务系统").SwfWindow("销售客户资料查找").SwfEdit("SwfEdit").set dvalue
SwfWindow("新业务系统").SwfWindow("销售客户资料查找").Activate
SwfWindow("新业务系统").SwfWindow("销售开票单").SwfEdit("SwfEdit").Type  micReturn
'SwfWindow("新业务系统").SwfWindow("销售客户资料查找").Activate
wait 3
datatable.SetNextRow
Next

作者: TIB 时间: 2010-4-22 10:08
回车前加个
SwfWindow("新业务系统").SwfWindow("销售开票单").SwfEdit("SwfEdit").Click
试试

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