vba字典在金字塔中如何表示 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

''''''这是我用着的代码
Set dominantContract=CreateObject("Scripting.Dictionary")
'枚举合约，将连续合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
Sub GetLxCode()
Dim marketName
  dominantContract.RemoveAll
  marketName=Array("SQ","DQ","ZQ","ZJ")
  prefixStockNameOld=""
c"
  contractVol=0

  For j=0 To UBound(marketName)
  n=marketData.GetReportCount(marketName(j))
  For i=0 To n-1
      Set reportData=marketdata.GetReportDataByIndex(marketName(j),i)
      prefixStockNameCur=left(reportData.StockName,2)
      suffixStockNameCur=right(reportData.StockName,2)
      If suffixStockNameCur>="00" And suffixStockNameCur<"99" And reportData.Volume>0 Then
      'If suffixStockNameCur="00" And reportData.Volume>0 Then
       If prefixStockNameCur<>prefixStockNameOld Then
         If contractLabel<>"" Then
           dominantContract.Add contractLabel,contractMarket
         End If
         prefixStockNameOld=prefixStockNameCur
         contractLabel=reportData.Label
         contractMarket=marketName(j)
         contractVol=reportData.Volume
       ElseIf reportData.Volume>contractVol then
         contractLabel=reportData.Label
         contractVol=reportData.Volume
       End If
     End If
  Next
  Next
  dominantContract.Add contractLabel,contractMarket
End sub

主题：vba字典在金字塔中如何表示