Gruppo Linq su più campi - VB.NET, Anonimo, Chiave

Question

I am stumped. Ho bisogno di aiuto. Ho un oggetto DTO con dati di indirizzo paziente duplicati. Ho bisogno di ottenere solo gli indirizzi univoci.

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() 

Ho provato quanto segue senza fortuna:

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  

e anche

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

È possibile utilizzare un anonymous type e fare uso della Key keyword in ordine per l'uguaglianza di comportarsi nel modo previsto (non richiesto per C#).

Cambia la tua raggruppamento specificando il prefisso Key e rimuovere il PatientAddress utilizzo:

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

sua probabilmente perché PatientAddress non sovrascrive GetHashCode e Equals. Un'alternativa è a noi un anonymous type per il raggruppamento. Prova scritta:

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

Answer 3

ho trovato il seguente codice di lavorare, che compie in sostanza, il raggruppamento che io desidero e popolare il nuovo oggetto come tipo PatientAddress pertanto eliminando l'uso di oggetti anonimi e la parola chiave Key.

Forse qualcuno può spiegarlo, al momento non posso. Buona giornata.

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()