变量使用

51testqiaojj

小弟有两个问题：

'声明并给变量赋予对象，类型是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"    '提示找不到对象

请高手指点，小弟感激不尽！

dog487

第一个问题：
改成public function
       end function
试试

第二个问题：
browser("v3").page("v3").Frame("frame1").webcheckbox("webcheckbox_primarykey")

这个webcheckbox在对象库中存在吗？

51testqiaojj

在第一次调用function的时候，没有问题，在第二次调用的时候就提示参数不正确。

51testqiaojj

对于第二个问题，这个对象在对象库中肯定是存在的，如果使用对象结构
：browser("v3").page("v3").Frame("frame1").webcheckbox("webcheckbox_primarykey")
这样使用是没有问题的，现在我把它赋给变量了，适用变量操作时就出现问题了。
而且在调用function之前没有问题，但是调用之后，就会提示找不到对象。