变量使用
小弟有两个问题:'声明并给变量赋予对象,类型是webedit
Dim webedit_alarm_begin
Set webedit_alarm_begin=browser("v3").page("v3").Frame("frame1").webedit("webedit_alarm_begin")
'声明并给变量赋予对象,类型是weblist
Dim weblist_forecast_status
Set weblist_forecast_status=browser("v3").page("v3").Frame("frame1").weblist("weblist_forecast_status")
'声明并给变量赋予对象,类型是webcheckbox
Dim webcheckbox_primarykey
set webcheckbox_primarykey=browser("v3").page("v3").Frame("frame1").webcheckbox("webcheckbox_primarykey")
'定义函数
'-----2-------------零售户单次订货异常(总量)查询-------------
function query_single()
'在函数中使用在函数外声明的变量
webedit_alarm_begin.set "20001212" '在执行这一步时提示参数不正确,这是第一个问题
weblist_forecast_status.select "未审核" '在执行这一步时可以正常执行
End function
下面是第二个问题:
'调用上述函数
call query_sing()
webcheckbox_primarykey.set "on" '提示找不到对象
请高手指点,小弟感激不尽!
回复 1# 的帖子
第一个问题:改成public function
end function
试试
第二个问题:
browser("v3").page("v3").Frame("frame1").webcheckbox("webcheckbox_primarykey")
这个webcheckbox在对象库中存在吗?
回复 2# 的帖子
在第一次调用function的时候,没有问题,在第二次调用的时候就提示参数不正确。回复 2# 的帖子
对于第二个问题,这个对象在对象库中肯定是存在的,如果使用对象结构:browser("v3").page("v3").Frame("frame1").webcheckbox("webcheckbox_primarykey")
这样使用是没有问题的,现在我把它赋给变量了,适用变量操作时就出现问题了。
而且在调用function之前没有问题,但是调用之后,就会提示找不到对象。
页:
[1]