общедоступный словарь в методе todictionary

Question

Я пытаюсь получить доступ к словарю, созданному в методе todictionary, в других процедурах.

Это то, что я хотел бы, но у меня возникает ошибка компиляции.

Public dctOPT As New Dictionary(Of Integer, Object) 

Sub Get_RTD_OPT() 

     Dim lstOPT = From C In DATA.CHAINs, O In DATA.OPTIONs, U In DATA.UDLies 
        Where C.CONTRACT = O.CONTRACT And O.UDLY_SYM = U.UDLY_SYM 
        Select C.ID, C.P_C, C.STRIKE, C.CONTRACT, 
         O.OPT_EXCHANGE, O.OPT_EXPIRY, O.OPT_SEC_TYPE, O.SYM, 
         U.CURRENCY 

     dctOPT = lstOPT.ToDictionary(Function(Z) Z.ID) 

end sub 

компилируется, но я не могу получить доступ к dctOPT в других процедурах.

dim dctOPT = lstOPT.ToDictionary(Function(Z) Z.ID) 

мне нужно скопировать dctOPT в другой государственный словарю или есть более простой способ делать? Любые предложения, пожалуйста?

Answer 1

Вам нужно это:

Public dctOPT As New Dictionary(Of Integer, Object) 

Sub Get_RTD_OPT() 

    Dim lstOPT = 
     From C In DATA.CHAINs, O In DATA.OPTIONs, U In DATA.UDLies 
     Where C.CONTRACT = O.CONTRACT And O.UDLY_SYM = U.UDLY_SYM 
     Select C.ID, C.P_C, C.STRIKE, C.CONTRACT, 
      O.OPT_EXCHANGE, O.OPT_EXPIRY, O.OPT_SEC_TYPE, O.SYM, 
      U.CURRENCY 

    dctOPT = lstOPT.ToDictionary(Function(Z) Z.ID, Function(Z) CType(Z, Object)) 

End Sub 

Без Function(Z) CType(Z, Object) тип словаря создается было Dictionary(Of Integer, <anonymous>) и которые не могут быть непосредственно отнесены к Dictionary(Of Integer, Object). Приведение правильно генерирует словарь нужного типа.