問(wèn)題：

     在鄭州期貨市場(chǎng)，將商品名稱左邊兩位存入數(shù)組MC()，
        通過(guò)輸出，驗(yàn)證MC()確實(shí)有數(shù)據(jù) 

           希望：把數(shù)組MC()里記錄裝入字典，過(guò)濾掉重復(fù)的記錄。

              但 加入數(shù)據(jù)時(shí)提示錯(cuò)誤。

     期望得到幫助和指導(dǎo)，謝謝。

，，，，

Set d=CreateObject("Scripting.Dictionary")     '將數(shù)組MC()裝入字典，濾掉重復(fù)記錄
for qq=0 to ubound(mc)
d.Add mc(qq)                                               '加入數(shù)據(jù)時(shí)出現(xiàn)錯(cuò)誤
next
application.MsgOut d.count                   
End Sub

下邊為測(cè)試時(shí)源代碼：

Sub t_lx()  '在鄭州期貨市場(chǎng)，將商品名稱左邊兩位存入數(shù)組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)    '通過(guò)輸出，驗(yàn)證MC()確實(shí)有數(shù)據(jù) 
Next

Set d=CreateObject("Scripting.Dictionary") '將數(shù)組MC()裝入字典，濾掉重復(fù)記錄
for qq=0 to ubound(mc)
d.Add mc(qq)                       '加入數(shù)據(jù)時(shí)出現(xiàn)錯(cuò)誤
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)    還是提示錯(cuò)誤：

編輯器錯(cuò)誤“457”，由于控件無(wú)法看到、尚未啟用，或其他類型不接受焦點(diǎn)，因此無(wú)法將焦點(diǎn)移至該控件。

請(qǐng)老師再賜教。

   另外，測(cè)試了論壇中“找主力合約”的例子，在本機(jī)上運(yùn)行正常，里邊也應(yīng)用到“字典”，因個(gè)人水平較低，看不出例子為啥就能運(yùn)行。

 prefixStockNameOld=""
 c"
感覺(jué)這兩句很神秘，在程序中是啥意思？尤其是Old。

希望老師能把每一條代碼給給注釋，便于學(xué)習(xí)。

另外：dominantContract.Add contractLabel,contractMarket

如果想把字典中已經(jīng)裝入的記錄逐條顯示出來(lái)，應(yīng)該怎么寫。

總感覺(jué)金字塔里字典的用法與VBA 不太一樣，懇請(qǐng)指點(diǎn)。

謝謝。