QTP在执行时，页面自动计算功能没有了

dgang · 发表于 2007-12-5 16:24:19

我正在用qtp8.2录web页面的脚本，在录脚本时，我在一个文本框中输入一个数据，另外一个文本框中会自动按照某种算法计算出一个数据显示出来。但我在执行脚本时，就不能自动计算并显示。
请问如何解决呢？

yzem99 · 发表于 2007-12-5 16:32:16

按下回车键试试，或者点击下其他的控件。

scorix · 发表于 2007-12-5 17:45:16

模拟键盘输入

dgang · 发表于 2007-12-5 17:52:28

关注中

gy21st · 发表于 2007-12-5 19:58:10

set完成后试一下type micTab, 然后wait 1看行不行

walker1020 · 发表于 2007-12-5 23:18:08

不知道楼主说的“自动计算并显示” 具体是什么含义。如果QTP没有录制相应的操作，那么你就自己写代码去检查要检查的对象吧。这时可能用到楼上的朋友说的“set完成后试一下type micTab”。

dgang · 发表于 2007-12-6 09:26:41

谢谢楼上两位朋友，但我的水平实在很差，“set完成后试一下type micTab”这句话是什么意思呀？“自动计算并显示”指的是当在执行脚本时，当脚本自动将数据填入文本框时，另外一个有自动计算功能的文本框中什么都不显示出来。当我录脚本时，手工输入时，就会自动计算并显示出来。

板砖 · 发表于 2007-12-6 09:36:48

用type 命令试试

xiaoyaoke · 发表于 2007-12-6 10:07:01

明确你手工输入时候需不需要输完数字后按回车键
如果需要回车键，那好：type micTab在输入之后
如果不需要就直接使用type模拟键盘输入

scorix · 发表于 2007-12-6 10:58:18

WebEdit要用WshShell.SendKeys

dgang · 发表于 2007-12-6 12:18:06

这是我的代码，按楼上朋友说的将“set”改为了“Type”（红色的字）但当执行到含有Type的语句时，就会报“对象不支持此属性或方法的错误”，该如何解决呀？

Browser("计划统计").Page("计划统计").WebEdit("username").Set "bq"
Browser("计划统计").Page("计划统计").Image("img_yj_dl_17").Click
Browser("计划统计").Page("综合管理系统").Image("img_yj_01").FireEvent "onmouseover"
Browser("计划统计").Page("综合管理系统").Image("img_yj_01").Click
Browser("计划统计").Page("计划统计_2").Frame("leftframe").Link("季度销售计划").Click
Browser("计划统计").Page("计划统计_2").Frame("index_up").Image("add").Click
Browser("本企业产量构成").Page("本企业产量构成").WebList("TB_GH_JDXSJH_LDATA__C_JD").Select "第一季度"
Browser("本企业产量构成").Page("本企业产量构成").WebList("TB_GH_JDXSJH_LDATA__C_TBDW").Select "公司"
Browser("本企业产量构成").Page("本企业产量构成").WebList("TB_GH_JDXSJH_LDATA__C_XMMC").Select "GDFA"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__C_JLDW").Set "d"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_QNSCJH").Type "5"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMJHL").Type "6"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMYJW").Set "7"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_FYAPDYY").Set "8"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_FYAPDEY").Set "9"
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_FYAPDSY").Set "10"
Browser("本企业产量构成").Page("本企业产量构成").Image("img_baocun_02").Click
Browser("本企业产量构成").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
Browser("本企业产量构成").Page("本企业产量构成_2").Sync
Browser("本企业产量构成").Close
Browser("计划统计").Page("计划统计_2").Sync
Browser("计划统计").Close

walker1020 · 发表于 2007-12-6 21:50:56

9# 朋友的意思是：在操作之后需要增加 WshShell.SendKeys 语句或 type micTab，以实现回车的功能。由于你把set 改为Type后，QTP报告“对象不支持此属性或方法的错误”，那么你还是用原来的 Set 方法吧

scorix · 发表于 2007-12-6 22:46:10

Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_QNSCJH").set ""
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_QNSCJH").FireEvent("onfocus")
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "5"
WshShell.SendKeys "{ENTER}" '不需要回车请注释这行
Wait 2
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMJHL").set""
Browser("本企业产量构成").Page("本企业产量构成").WebEdit("TB_GH_JDXSJH_LDATA__N_ZSJDMJHL").FireEvent("onfocus")
WshShell.SendKeys "6"
WshShell.SendKeys "{ENTER}" '不需要回车请注释这行
Wait 2
Set WshShell = Nothing

walker1020 · 发表于 2007-12-7 00:16:07

楼主可以试试 scorix 在 12# 提供的代码，这个方法应该可行。

walker1020 · 发表于 2007-12-7 00:16:37

非常感谢 scorix 的热情帮助！论坛需要这样热心的朋友

dgang · 发表于 2007-12-7 10:03:03

谢谢scorix朋友的帮助，按照你的方法，问题已经解决了。
真是高手呀，不！是高手！高手！高高手！
51testing真是个好地方，以后要常来，这里面的高手太多了！

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] QTP在执行时，页面自动计算功能没有了

本帖子中包含更多资源

相关帖子

关注中

继续关注

Type方法报错

本帖子中包含更多资源

非常感谢

站长推荐 /1