Deutlich in LINQ anonyme Datentypen (die in VB.NET)

Angenommen, dass die referenzierten List unten enthält 2 Elemente:

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

den obigen code gibt

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

Wie kann ich die unterschiedlichen Werte? Die Countries Abfrage sollte nur

.Country=Spain .CountryID = 1

Dies stellte eine interessante Frage Chocol8.

InformationsquelleAutor OrElse | 2011-07-02

35

Kann ich nur annehmen, du bist tot-set auf die Verwendung von anonymen Typ als die Antwort von Alex Peck, der richtige ist. (und ich habe es von Ihnen positiv bewertet werden).

Jedoch, dies läuft darauf hinaus, eine VB.NET vs C# - compiler Diskussion.

In VB.NET wenn ein anonymer Typ begegnet, die nur die deklarierten Eigenschaften als Schlüssel-Eigenschaften können zu Vergleichszwecken herangezogen werden. So in VB.NET ohne Schlüssel, wenn Sie versuchen zu tun, einen deutlichen Vergleich, geschieht nichts.

Lesen Sie alles darüber hier.

Also erstmal, um deine Frage zu beantworten, das funktioniert mit anonyme Typen:
```
Dim Countries = From c In List Select New With {Key c.CountryId, c.Country} Distinct.ToList
```
Dies ist der Grund, warum freedompeace Antwort nicht ganz funktioniert.

C# aber der compiler ist ein wenig anders.

Wenn ein anonymer Typ ist aufgetreten und ein Vergleich Betrieb benötigt der c# - compiler überschreibt Equals und GetHashCode. Es iteriert durch alle öffentlichen Eigenschaften des anonymen Typs auf die Berechnung des Objekts hash-code-test für die Gleichheit.

Und Lesen Sie mehr darüber hier.

Hoffe, das beantwortet Ihre Frage.
- +1 interessant, ich bin besser bewandert in C# und nicht der Unterschiede bewusst hier.
- Das ist Großartig! Danke!
- Wichtiger Hinweis aus der MSDN-Artikel: > Die Eigenschaften in einen anonymen Typ, der erstellt wird, die von einer Abfrage werden immer wichtiger Eigenschaften. Siehe auch dieser testcase.
InformationsquelleAutor Khepri

Dim distinctCountries = Countries.Distinct()

Dies funktioniert für mich, wenn ich nicht mehr auf die Letzte Zeile im debugger:

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 Diese auch nicht funktioniert.

InformationsquelleAutor Alex Peck

Distinct muss irgendwie wissen, welche Objekte identisch sind. Wählen Sie anonyme Objekte hier, weiß es gar nicht, die sind gleich. Ich schrieb nie eine Zeile VB.Net aber ich habe versucht, etwas, und es funktioniert:

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

In Ihrem Fall:

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

InformationsquelleAutor Peter Porfy

2

Es ist die LINQ-Betreiber namens Distinct(), die Sie aufrufen können, etwa so:
```
 Dim Countries = (From c In List _
             Select c.Country, c.CountryID).Distinct()
```
Mehr Informationen auf Verschiedene hier
- lonita: Das funktioniert nicht
InformationsquelleAutor Diana Ionita

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

Das funktioniert nicht

InformationsquelleAutor foxy

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.