VB.NETのディクショナリーオブジェクトでハマったよ。

とある処理で、各タイプごとの集計するとき、

データテーブルがとっても使いづらかったのでディクショナリーを使ってみた。

ハマったソース

　　ディクショナリー１
        Dim dc1 As New Dictionary(Of Integer, Dictionary(Of Integer, String))
　　ディクショナリー２
        Dim dc2 As New Dictionary(Of Integer, Dictionary(Of Integer, String))

        'ディクショナリーをセット
        For iDcset As Integer = 1 To 3
            Dim dcTemp As New Dictionary(Of Integer, String)
            'キーをセット
            For iKeyset As Integer = 1 To 3
                dcTemp.Add(iKeyset, 0)
            Next
            dc1.Add(iDcset.ToString, dcTemp)
            dc2.Add(iDcset.ToString, dcTemp)
        Next

        'バリューを入れる
        dc1(1)(1) = "A"
        dc1(1)(2) = "B"
        dc1(2)(1) = "C"
        dc1(2)(2) = "D"
        dc1(3)(1) = "E"
        dc1(3)(2) = "F"

        dc2(1)(1) = "1"
        dc2(1)(2) = "2"
        dc2(2)(1) = "3"
        dc2(2)(2) = "4"
        dc2(3)(1) = "5"
        dc2(3)(2) = "6"

　　’出力
        Debug.WriteLine("ディクショナリー１：　値" & dc1(1)(1))
        Debug.WriteLine("ディクショナリー１：　値" & dc1(1)(2))
        Debug.WriteLine("ディクショナリー１：　値" & dc1(2)(1))
        Debug.WriteLine("ディクショナリー１：　値" & dc1(2)(2))
        Debug.WriteLine("ディクショナリー１：　値" & dc1(3)(1))
        Debug.WriteLine("ディクショナリー１：　値" & dc1(3)(2))

        Debug.WriteLine("ディクショナリー２：　値" & dc2(1)(1))
        Debug.WriteLine("ディクショナリー２：　値" & dc2(1)(2))
        Debug.WriteLine("ディクショナリー２：　値" & dc2(2)(1))
        Debug.WriteLine("ディクショナリー２：　値" & dc2(2)(2))
        Debug.WriteLine("ディクショナリー２：　値" & dc2(3)(1))
        Debug.WriteLine("ディクショナリー２：　値" & dc2(3)(2))
結果

ディクショナリー１：　値1
ディクショナリー１：　値2
ディクショナリー１：　値3
ディクショナリー１：　値4
ディクショナリー１：　値5
ディクショナリー１：　値6

ディクショナリー２：　値1
ディクショナリー２：　値2
ディクショナリー２：　値3
ディクショナリー２：　値4
ディクショナリー２：　値5
ディクショナリー２：　値6

値

が

上

書

き

されてる。。

犯人は

        'ディクショナリーをセット
        For iDcset As Integer = 1 To 3
            Dim dcTemp As New Dictionary(Of Integer, String)
　　　↑こいつ！

まだまだ素人のわたしには、いまいち理解できず、

こいつが参照しちゃってる？？というのか、なんなのか、、、

なので、もうひとつ作ってやった。

        'ディクショナリーをセット
        For iDcset As Integer = 1 To 3
            Dim dcTemp1 As New Dictionary(Of Integer, String)
            Dim dcTemp2 As New Dictionary(Of Integer, String)
            'キーをセット
            For iKeyset As Integer = 1 To 3
                dcTemp1.Add(iKeyset, 0)
                dcTemp2.Add(iKeyset, 0)
            Next
            dc1.Add(iDcset.ToString, dcTemp1)
            dc2.Add(iDcset.ToString, dcTemp2)
        Next

なんか嫌だよーーー。