Grupa Linq na wielu polach - VB.NET, Anonim, klucz

Question

Jestem zaskoczony. Potrzebuję pomocy. Mam obiekt DTO z duplikatami danych adresowych pacjenta. Muszę uzyskać tylko unikalne adresy.

Dim PatientAddressDto = New List(Of PatientAddress) 

{Populate PatientAddressDto with lots of duplicate data} 

PatientAddressDto = (From d In PatientAddressDto 
        Group d By PatientAddressDtoGrouped = New PatientAddress With { 
                   .Address1 = d.Address1, 
                   .Address2 = d.Address2, 
                   .City = d.City, 
                   .State = d.State, 
                   .Zip = d.Zip 
                   } 
        Into Group 
        Select New PatientAddress With { 
                .Address1 = PatientAddressDtoGrouped.Address1, 
                .Address2 = PatientAddressDtoGrouped.Address2, 
                .City = PatientAddressDtoGrouped.City, 
                .State = PatientAddressDtoGrouped.State, 
                .Zip = PatientAddressDtoGrouped.Zip 
                }).ToList() 

Próbowałem następujących bez powodzenia:

PatientAddressDto = (From d In PatientAddressDto 
        Select New PatientAddress With { 
                .Address1 = d.Address1, 
                .Address2 = d.Address2, 
                .City = d.City, 
                .State = d.State, 
                .Zip = d.Zip 
                }).Distinct  

a także

PatientAddressDto = PatientAddressDto.GroupBy(Function(p) New PatientAddress With { 
                .Address1 = p.Address1, 
                .Address2 = p.Address2, 
                .City = p.City, 
                .State = p.State, 
                .Zip = p.Zip 
                }) 

Answer 1

Można użyć anonymous type i skorzystać z Key keyword w celu równości zachowywać się zgodnie z oczekiwaniami (nie wymagane dla C#).

Zmiana grupowania określając prefiks Key i wyjąć PatientAddress Zastosowanie:

Group d By PatientAddressDtoGrouped = New With { 
    Key .Address1 = d.Address1, 
    Key .Address2 = d.Address2, 
    Key .City = d.City, 
    Key .State = d.State, 
    Key .Zip = d.Zip 
} 

Answer 2

jego prawdopodobnie dlatego PatientAddress nie zastępują GetHashCode i Equals. Alternatywą jest dla nas anonymous type dla grupowania. Spróbuj napisać:

Group d By PatientAddressDtoGrouped = New With { Key .Address1 = d.Address1, .... 

Answer 3

Znalazłem następujący kod do pracy, która zasadniczo realizuje grupowanie, że pragnienie i wypełniania nowego obiektu jako typ PatientAddress dlatego wyeliminowanie użycia anonimowych obiektów i słowa kluczowego Klucz.

Może ktoś może to wyjaśnić, w tej chwili nie mogę. Miłego dnia.

Dim PatientAddressDto = New List(Of PatientAddress) 

{Populate PatientAddressDto with lots of duplicate data} 

PatientAddressDto = (From d In PatientAddressDto 
        Group d By d.Address1, 
           d.Address2, 
           d.City, 
           d.State, 
           d.Zip Into g = 
        Group Let grp = New PatientAddress With {.Address1 = Address1, 
                   .Address2 = Address2, 
                   .City = City, 
                   .State = State, 
                   .Zip = Zip} 
        Select grp).ToList()