主题：admin老大请进，关于RegReportNotify的问题

 写了一段测试代码：
Dim debugFile

Sub Test1()
    logSpec=application.AppPath&"\debug.log"
    Set fso=createobject("Scripting.FileSystemObject")
    Set debugFile=fso.OpenTextFile(logSpec,2,1)
    Call marketdata.RegReportNotify("ZN12","SQ")
    Call marketdata.RegReportNotify("Y05","DQ")
    Call marketdata.RegReportNotify("L01","DQ")
    Call marketdata.RegReportNotify("M05","DQ")
    Call marketdata.RegReportNotify("CF01","ZQ")
    Call marketdata.RegReportNotify("RB01","SQ")
    Call marketdata.RegReportNotify("RU01","SQ")
    Call marketdata.RegReportNotify("SRY05","ZQ")
End Sub

Sub MARKETDATA_ReportNotify(ReportData)
    debugFile.WriteLine(ReportData.Label)
End Sub

Sub Test2()
    Call marketdata.UnRegReportNotify("ZN12","SQ")
    Call marketdata.UnRegReportNotify("Y05","DQ")
    Call marketdata.UnRegReportNotify("L01","DQ")
    Call marketdata.UnRegReportNotify("M05","DQ")
    Call marketdata.UnRegReportNotify("CF01","ZQ")
    Call marketdata.UnRegReportNotify("RB01","SQ")
    Call marketdata.UnRegReportNotify("RU01","SQ")
    Call marketdata.UnRegReportNotify("SRY05","ZQ")
    debugFile.Close
End Sub


目的测试RegReportNOtify函数，将收到的报告信息写入文件中。先运行Test1，过几分钟后运行Test2。结果写入debug.log中的信息片段如下：
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01
Y05
ZN12
L01

貌似除了开头的3合约，其它注册合约没有数据送过来，请查查原因，谢谢