[Vb.net] Entity framework e tipo anonimo

[U235]

Originariamente inviato da cassano
Ecco un esempio e che con il suggerimento che mi hai dato non funziona.

Dim aj = (From c In db.tabella1 Join d In db.tabella2 On c.Barcode Equals d.barcode Select c.Barcode, c.CodiceProtocollo, d.Data_consegna).OfType(Of Object).ToList

Private Sub prova(ByVal parameter As List(Of Object))
		For Each para In parameter
			Console.WriteLine(para)
			Console.WriteLine(para.ToString)
		Next
	End Sub

Non mi legge le proprietà.

Questo perchè uso una Join altrimenti mi facevo ritornare l'oggetto tipizzato e non avrei avuto problemi.

devi aggiungere il New With {Key .Proprieta = *} nel select

Dim aj = (From c In db.tabella1 Join d In db.tabella2 On c.Barcode Equals d.barcode Select New With {Key .Barcode= c.Barcode, Key .CodiceProtocollo=c.CodiceProtocollo, Key .Data_consegna=d.Data_consegna}).OfType(Of Object).ToList

Private Sub prova(ByVal parameter As List(Of Object))
		For Each para In parameter
			Console.WriteLine(para)
			Console.WriteLine(para.Barcode)
		Next
	End Sub

in VB non ho molta manualità e ho scritto il testo senza provare, ma dovrebbe essere corretto.

in sostanza devi creare il tipo con le proprietà che leggerai, un qualcosa tipo :

New With {Key .Barcode= c.Barcode, Key .CodiceProtocollo=c.CodiceProtocollo, Key .Data_consegna=d.Data_consegna}