Distinctes dans LINQ avec les types anonymes (dans VB.NET)

En supposant que le référencés List ci-dessous contient 2 éléments:

Dim Countries = From c In List _
                Select New With { .Country = c.Country, .CountryID = c.CountryID }

le code ci-dessus renvoie

.Country=Spain .CountryID = 1
.Country=Spain .CountryID = 1

Comment puis-je obtenir les valeurs distinctes? Le Countries requête doit contenir uniquement

.Country=Spain .CountryID = 1

Ceci s'est avéré être une question intéressante Chocol8.

OriginalL'auteur OrElse | 2011-07-02

35

Je ne peux que supposer que vous êtes ensemble mort sur l'utilisation de type anonyme que la réponse donnée par Alex Peck est correct. (et j'ai upvoted).

Cependant, cela se résume à un VB.NET vs compilateur C# discussion.

Dans VB.NET lorsqu'un type anonyme est rencontré uniquement les propriétés déclarées comme clé de propriétés peuvent être utilisées à des fins de comparaison. Donc, en VB.NET sans clé, lorsque vous tentez de faire un distinctes de comparaison, rien ne se produira.

Lire tout ça ici.

Donc d'abord, pour répondre à votre question, cela fonctionne avec les types anonymes:
```
Dim Countries = From c In List Select New With {Key c.CountryId, c.Country} Distinct.ToList
```
C'est pourquoi freedompeace la réponse n'a pas assez de travail.

C#, cependant, le compilateur est un peu différent.

Quand un type anonyme est rencontrées et une opération de comparaison est nécessaire que le compilateur c# remplace d'égal à Égal et GetHashCode. Il va itérer sur toutes les propriétés publiques de l'anonyme de type pour calculer le hachage de l'objet code pour tester l'égalité.

Et vous pouvez lire plus à ce sujet ici.

Espère que cela répond à votre question.

+1 d'intéressant, je suis mieux placé en C# et n'a pas conscience de la différence ici.
C'est Génial! Merci!
Remarque importante à partir de la article MSDN: > Les propriétés d'un type anonyme est créé par une requête sont toujours des propriétés de clé. Voir aussi ce cas de test.

OriginalL'auteur Khepri

Dim distinctCountries = Countries.Distinct()

Cela fonctionne pour moi, quand j'ai arrêter sur la dernière ligne dans le débogueur:

Imports System.Text

<TestClass()>
Public Class UnitTest1

    Class Test
        Public Country As String
        Public CountryID As Integer
    End Class

    <TestMethod()>
    Public Sub TestMethod1()

        Dim List(1) As Test
        List(0) = New Test With {.Country = "Spain", .CountryID = 1}
        List(1) = New Test With {.Country = "Spain", .CountryID = 1}

        Dim Countries = From c In List Select c.Country, c.CountryID

        Dim distinctCountries = Countries.Distinct()
    End Sub

End Class

Peck Cela ne fonctionne pas trop.

OriginalL'auteur Alex Peck

Distinct doit savoir quelque sorte, dont les objets sont les mêmes. Vous sélectionnez anonymus objets ici, il ne sait pas qui sont les mêmes. Je n'ai jamais écrit une seule ligne de VB.Net mais j'ai essayé quelque chose, et ça fonctionne:

Module Module1

    Sub Main()
        Dim countries As List(Of Country) = New List(Of Country)
        Dim spain1 As Country = New Country()
        Dim spain2 As Country = New Country()
        Dim spain3 As Country = New Country()
        Dim hungary As Country = New Country()
        spain1.ID = 1
        spain1.Name = "Spain"
        spain2.ID = 1
        spain2.Name = "Spain"
        spain3.ID = 2
        spain3.Name = "Spain"
        hungary.ID = 3
        hungary.Name = "Hungary"
        countries.Add(spain1)
        countries.Add(spain2)
        countries.Add(spain3)
        countries.Add(hungary)

        Dim ctr = From c In countries Select c.Name, c.ID
                  Distinct

        For Each c In ctr
            Console.WriteLine(c)
        Next
    End Sub

    Public Class Country

        Protected _name As String

        Protected _id As Long

        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property

        Public Property ID() As Long
            Get
                Return _id
            End Get
            Set(ByVal value As Long)
                _id = value
            End Set
        End Property

    End Class
End Module

Dans votre cas:

Dim Countries = From c In List 
                Select c.Country, c.CountryID Distinct

OriginalL'auteur Peter Porfy

2

Il y a les opérateurs LINQ nommé Distinct(), que vous pouvez appeler de la sorte:
```
 Dim Countries = (From c In List _
             Select c.Country, c.CountryID).Distinct()
```
Plus d'informations sur Distincts ici

lonita: Cela ne fonctionne pas

OriginalL'auteur Diana Ionita

Dim Countries = From c In List _
                 Select New With {.Country = c.Country, .CountryID = c.CountryID }.Distinct()

Cela ne fonctionne pas

OriginalL'auteur foxy

Vous devez vous connecter pour publier un commentaire.