脚本无法回放成功

tina_zhang

我用QTP录制如下脚本，却回放不成功：
Browser("EV2006").Page("EV2006").WebEdit("userID").Set "a"
Browser("EV2006").Page("EV2006").WebEdit("pw").SetSecure "44e4316fd8c470b5"
Browser("EV2006").Page("EV2006").WebElement("登陆").Click
Browser("Browser").Page("Page").Frame("navigationFrame").WebElement("仓库").Click
Browser("Browser").Page("Page").Frame("workFrame").WebElement("新增[N]").Click
Browser("Browser").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("Browser").Page("Page").Frame("Frame").WebElement("正常仓库2").Click
Browser("Browser").Page("Page").Frame("workFrame").WebElement("新增[N]").Click
Browser("Browser").Page("Page").Frame("workFrame").WebEdit("whID").Set "97678567"
Browser("Browser").Page("Page").Frame("workFrame").WebEdit("whName").Set "ghdfghdfgh"
Browser("Browser").Page("Page").Frame("workFrame").WebEdit("whClsName").Set "后备仓"
Browser("Browser").Page("Page").Frame("workFrame").WebEdit("departmentName").Set "部门十一"
Browser("Browser").Page("Page").Frame("workFrame").WebEdit("remarks").Set "dfasdfasdfasdfasdf"
Browser("Browser").Page("Page").Frame("workFrame").WebElement("保存[F5]").Click
Browser("Browser").Page("Page").Sync
Browser("Browser").Close
Browser("EV2006").Page("EV2006").Sync
Browser("EV2006").Close

其中提示所输入的部门不能为空，因为部门是必填项，但实际上我看到回放过程中，这个值是存在的，不知道怎么还是提示不能为空，请大家不惜赐教！！！

xiaonan

首先,你先看看程序本身是否存在问题.然后再设置断点查看情况.测试前清理干净网页历史信息.

yangkinki

不能确定具体是你的程序本身有问题还是有其他什么问题；
提示 部门不能为空是运行在哪步时，
建议加入断点，逐步运行

walker1020

从你的脚本来判断，执行输入部门的操作是下面这一行代码：
Browser("Browser").Page("Page").Frame("workFrame").WebEdit("departmentName").Set "部门十一"
你在这行代码后 加上 Wait(5) 试试看。
如果还不行，在这一行后 的下一行加上断点，然后看看QTP运行脚本后，部门名到底输入了没有。

tina_zhang

我逐步运行调试的时候，发现这一行是有值输入的，但提交的时候还是报辅助输入的部门不能为空的信息而无法提交，程序应该是没有问题的，因为录制的时候是能保存成功的，纳闷阿！

chill

有些输入框必须将焦点放在上面后，信息才能被提交，不然页面认为你没有修改任何信息，可以试试用onfocus将焦点放在该输入框上
                                                chill

tina_zhang

不是很明白，具体要怎么做呢？

yangkinki

你确定在提交的时候那个部门还有值，却还有提示信息，实际录制也没有问题，应用程序也没有问题
回放就有问题，
在Browser("Browser").Page("Page").Frame("workFrame").WebElement("保存[F5]").Click前加一条语句
    var=Browser("Browser").Page("Page").Frame("workFrame").WebEdit("remarks").getroproperty("value")
               msgbox var
  确定是否有数据在