高级功能研发区-请问上述代码为何会出错？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  请问上述代码为何会出错？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=162841)

--  作者：qq代人发帖
--  发布时间：2018/4/17 15:49:31
--  请问上述代码为何会出错？

Sub Application_vbaStart()
    Call MarketData.RegReportNotify("IF06","ZJ")
End Sub

Sub MarketData_ReportNotify(ReportData)
    NewPrice=ReportData.NewPrice
    stkLable=ReportData.Label
    Application.Msgout Cdate(time) & ",Code:" & stkLabel & ",NewPrice:" & NewPrice
End Sub

此主题相关图片如下：temp.png

--  作者：fmy
--  发布时间：2018/4/17 17:14:22
--
已解决