请高人帮忙看段代码，变量取的值哪来的啊。。

jandz0413

请高人指点一下，多谢了：
dblQuantity*dblUnit_price=dblRenference，dblRenference就是这个WebEdit("renference").GetROProperty ("value")
，这个webedit是根据前面两个输入的内容自动计算的，按理说dblRenference应该是1490才对，输出一看居然是10，这个什么情况啊？
还有下面最后一行，是否不能这么写，这个dblRenference出不来，只输出了到time的内容。

1. Browser("secrecy").Page("Page_2").WebEdit("vo.quantity").FireEvent "onfocus"
   
2. Dim wshshell
   
3. Dim dblQuantity,dblUnit_price,dblRenference
   
4. dblQuantity=10
   
5. dblUnit_price=149
   
6. Set wshshell=createobject("wscript.shell")
   
7. wshshell.sendkeys dblQuantity
   
8. Browser("secrecy").Page("Page_2").WebEdit("vo.unit_price").FireEvent "onfocus"
   
9. wshshell.sendkeys dblUnit_price
   
10. Set wshshell=nothing
    
11. dblRenference=Browser("secrecy").Page("Page_2").WebEdit("renference").GetROProperty ("value")
    
12. msgbox dblRenference
    
13. Browser("secrecy").Page("Page_2").WebEdit("name:=vo.transport_msg").Set date&" "&time&dblRenference

复制代码

rojer521

建议你调试一下，没有环境试验很难得知怎么出来这个值

baggiojeremy

1. 输出不对可能是你在第二个输入框使用sendkeys后没有将焦点移开而没有触发计算乘积的事件
2. 第二个问题你先检查下WebEdit("name:=vo.transport_msg")是不是可以随便输入的，最好先把字符串组好，放在变量中

jandz0413

1. 输出不对可能是你在第二个输入框使用sendkeys后没有将焦点移开而没有触发计算乘积的事件
2. 第二个问题 ...
baggiojeremy 发表于 2011-6-25 12:06

两个问题倒是都解决了，但仍没有弄清楚原因，还请高人再指点。
1.计算事件是触发了的，执行结果可以看到。最终解决的办法是在给dblRenference变量赋GetROProperty ("value"))之前，专门对其进行了初始化，就正常了。此前这个变量取得是dblUnit_price变量的值，这个不知是何原因。难道说变量未初始化时，取值有什么特别之处，可是随后也是有赋值GetROProperty ("value"))给它的啊。
2.给dblRenference变量赋GetROProperty ("value"))时，cdbl将其转化为浮点型后问题就解决了，也不明白是什么原因。。