Problème d'évaluation très étrange

Question

Je travaille sur du code VB.net dont j'ai hérité et je vois un comportement très étrange en essayant de rechercher une valeur dans un objet Interop.Scripting.Dictionary.

Voici la sortie de mes montres. Les expressions sont en italique et les valeurs de retour sont bolded:

oAwayBalanceTeam.Dates ("40068") {entier} Objet

CStr (Int (oTempBooking.StartDateTime.ToOADate))"40068" chaîne

oAwayBalanceTeam.Dates (CSTR (Int (oTempBooking.StartDateTime.ToOADate)))Nothing objet

Notez que la première surveillance renvoie un entier avec une valeur de 1 lorsqu'une clé littérale chaîne de "40068" est transmise. La seconde surveillance renvoie la chaîne "40068". Cependant, lorsque vous passez l'expression de la seconde montre comme valeur de clé dans la troisième montre, rien n'est renvoyé.

Quelqu'un a-t-il une idée de ce qui se passe ici?

Answer 1

Sur un suggestion d'un collègue, j'ai essayé d'assigner l'expression de la deuxième montre dans une chaîne et de passer ce var au dictionnaire.

Dim sKey As String 

sKey = CStr(Int(oTempBooking.StartDateTime.ToOADate)) 

oAwayBalanceTeam.Dates(sKey) 

Ceci a fonctionné pour certaines raisons alors que l'expression seule ne l'a pas fait. Alors que mon problème est résolu pour l'instant, j'aimerais toujours savoir pourquoi cela est arrivé si quelqu'un a une idée.

Answer 2

Pouvez-vous fournir un repro plus complet ici (et en particulier quelle version de Visual Studio vous utilisez). J'ai essayé le code suivant sur Visual Studio 2008 RTM et obtenu le résultat attendu dans tous les cas.

code

Module Module1 

    Sub Main() 
     Dim map = New Scripting.Dictionary 
     map("40068") = 1 
     Stop 
    End Sub 

End Module 

Expressions visionnées

• carte ("40068") 1 {entier} objet
• CStr (Int ("40068")) "40068" String
• map (CStr (Int ("40068"))) 1 {Entier} Objet