使用linq查询ConcurrentDictionary字典

Imports System.Collections.Concurrent

Module Module1

    Sub Main()
        Dim _userdev As New ConcurrentDictionary(Of Integer, Integer)

        _userdev.TryAdd(1001, 2000)
        _userdev.TryAdd(1002, 2001)
        _userdev.TryAdd(1003, 2002)
        _userdev.TryAdd(3004, 2000)
        _userdev.TryAdd(3005, 2001)
        _userdev.TryAdd(3006, 2002)


        Console.WriteLine("共计:" & _userdev.Count)

        Dim devid As Integer = 20020

        Dim q = From d In _userdev Where d.Value = devid
        For Each i In q
            Console.WriteLine(i.Key)
        Next

        Console.ReadKey()
    End Sub

End Module

　　

转载于:https://www.cnblogs.com/caoqinghua/p/7218617.html