在弹出的查询窗口，输入查询条件后，执行回车的操作无法回放

zhangxulanyou

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

TIB

把代码贴出来看看

zhangxulanyou

非常感谢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

回车前加个
SwfWindow("新业务系统").SwfWindow("销售开票单").SwfEdit("SwfEdit").Click
试试