使用MarketData.RegReportNotify来注册要监控的合约价格变化，然后使用MarketData_ReportNotify(reportdata)过程来获取价格信息很强大，我最近使用它来写了一个条件单下单程序，自动根据已经输入的期货品种进行监控，每一次价格跳动都要进行一次对条件单的判断，满足条件就开仓。

    我要取消监控时，需要知道我之前监控了哪些品种，可是我事前并不知道，如果有一个基于0索引的遍历机制，就可以很轻松地取消所有品种的监控了。

    还有就是这个监控不会随VBA的停止而自动停止，有点像定时器，你再次启动vba时，之前的监控依然有效。最好能随vba的停止自动取消所有监控。

VBA支持遍历功能，你做个定时器就行了

我是要取消所有品种的监控，可是我不知道具体的品种的，因为那是从数据库中读取的合约，而取消的时候，可能数据库中的记录从外部删除了。

使用RegReportNotify也不能 保证几百个品种效率能高于你用定时器遍历所有品种的，其实是一样的

这个我知道，我权衡了这两种方法，最后还是觉得使用RegReportNotify好，因为我监控的品种不会超过10个，一般3-5个，用价格监测，每一笔价格跳动都会到达这个事件进行处理，而是用定时器则会漏掉一些价格，比如使用每1秒循环一次，像某些品种1秒有两次价格跳动，如果是橡胶之类的一跳就是5快钱了，那可能会错过一些开仓机会。

那就用RegReportNotify好了，可以注册多个品种的

可是我并不知道之前注册了哪些品种啊，是通过读取数据库中的记录来设置的品种，那些品种可能在数据库中已经别修改或删除了。

只能退出金字塔软件，再次进入才可以。

我想出来一个方法了，这里写出来供大家共享

1、注册时将每一个从数据库中读出来的合约代码、市场代码、合约总数写入全局变量

2、vbaend事件中从全局变量中读取合约总数，做一个循环来逐个注销

代码如下：

Sub RegisteStock()   \'监控价格变动
 on error resume next
 dim i
 rstCodes.MoveFirst
 if rstCodes.eof then
  exit sub
 end if 
 i=1
 do while not rstCodes.eof           \'从数据库中读取设定的合约，循环体逐个进行合约注册
  sCode=rstCodes("Code")
  sMarket=rstCodes("Market")
  Call Document.SetExtString("Code-" & i,sCode)             \'写入每一个合约的代码
  Call Document.SetExtString("Market-" & i,sMarket)         \'写入对应的市场代码
  Call MarketData.RegReportNotify(sCode,sMarket)
  rstCodes.MoveNext
  i=i+1
 loop
 rstCodes.MoveFirst
 Call Document.SetExtData("CodesCount",i-1)       \'写入监控的合约总数
End Sub

Sub Application_VBAEnd()

 iCodesCount=Document.GetExtData("CodesCount")         \'读入监控的合约总数
 for i=1 to iCodesCount 
  sCode=Document.GetExtString("Code-" & i)
  sMarket=Document.GetExtString("Market-" & i)    \'从全局变量中读出合约及市场代码
  Call MarketData.UnRegReportNotify(sCode,sMarket)         \'注销
 next

End Sub