ReportNotify与RegReportNotify的使用问题

Sub savetick()
set sr_rpt = marketdata.GetReportData("sry01","ZQ")
set ru_rpt = marketdata.GetReportData("ru01", "SQ")

call sr_rpt.RegReportNotify("sry01","ZQ")
call ru_rpt.RegReportNotify("ru01", "SQ")

AddHandler sr_rpt.ReportNotify, AddressOf sr_rpt_ReportNotify
AddHandler ru_rpt.ReportNotify, AddressOf ru_rpt_ReportNotify


End Sub

Sub sr_rpt_ReportNotify()

End Sub
问题：
1、ReportNotify与RegReportNotify是这样使用的吗？
2、AddHandler 编译出错，该如何修改？

谢谢！

 

修改如下：

Sub savetick()

call marketdata.RegReportNotify("sry01","ZQ")
call marketdata.RegReportNotify("ru01", "SQ")

AddHandler sr_rpt.ReportNotify, AddressOf sr_rpt_ReportNotify


End Sub

Sub sr_rpt_ReportNotify()

End Sub

 

出错如下：
在AddHandler 行，1025，语句未结束

 

MARKETDATA_StopReceive
MARKETDATA_StartReceive
现在都有提示，MARKETDATA_ReportNotify没有，为何？
代码如下：
Sub savetick()
marketdata.RegReportNotify "sry01","ZQ"

End Sub

Sub MARKETDATA_ReportNotify(ReportData)
msgbox "notify!"
msgbox ReportData.newprice
End Sub


Sub MARKETDATA_StopReceive()
msgbox "receive data stop!"
End Sub


Sub MARKETDATA_StartReceive()
msgbox "receive data start!"
End Sub


Sub MARKETDATA_StkDataOK(MarketType)
'msgbox "stock data ok!"
End Sub

 

marketdata.RegReportNotify "sry01","ZQ"
改成大写的SRY01就好了

 

所有的代码都是大写吗？