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

问题：

     在郑州期货市场，将商品名称左边两位存入数组MC()，
        通过输出，验证MC()确实有数据 

           希望：把数组MC()里记录装入字典，过滤掉重复的记录。

              但 加入数据时提示错误。

 

     期望得到帮助和指导，谢谢。

 

，，，，

Set d=CreateObject("Scripting.Dictionary")     '将数组MC()装入字典，滤掉重复记录
for qq=0 to ubound(mc)
d.Add mc(qq)                                               '加入数据时出现错误
next
application.MsgOut d.count                   
End Sub

 

 

下边为测试时源代码：

 

Sub t_lx()  '在郑州期货市场，将商品名称左边两位存入数组MC()
dim mc()
dim d
Count = MarketData.GetReportCount("zq")
redim mc (Count-1)
For i = 0 To Count-1 
set Report3 = MarketData.GetReportDataByIndex("zq",i)                                         
mc(i)=Left(Report3.stockname,2)
Next
for nn= 0 To i-1
application.MsgOut mc(nn)    '通过输出，验证MC()确实有数据 
Next

Set d=CreateObject("Scripting.Dictionary") '将数组MC()装入字典，滤掉重复记录
for qq=0 to ubound(mc)
d.Add mc(qq)                       '加入数据时出现错误
next
application.MsgOut d.count                   
End Sub

redim mc(Count-1) '名称
redim dm(Count-1) ’代码

mc(i)=Left(Report3.stockname,4)
dm(i)=Right(Report3.Label,2)

 

d.Add mc(qq),dm(qq)    还是提示错误：

 

编辑器错误“457”，由于控件无法看到、尚未启用，或其他类型不接受焦点，因此无法将焦点移至该控件。

 

请老师再赐教。

 

   另外，测试了论坛中“找主力合约”的例子，在本机上运行正常，里边也应用到“字典”，因个人水平较低，看不出例子为啥就能运行。

 

 

 

 

 

 

 prefixStockNameOld=""
 c"
感觉这两句很神秘，在程序中是啥意思？尤其是Old。

希望老师能把每一条代码给给注释，便于学习。

另外：dominantContract.Add contractLabel,contractMarket

如果想把字典中已经装入的记录逐条显示出来，应该怎么写。

总感觉金字塔里字典的用法与VBA 不太一样，恳请指点。

谢谢。

经认真研究列子，基本得到领悟。谢谢。