Originariamente inviato da cassano
Ecco un esempio e che con il suggerimento che mi hai dato non funziona.
codice:
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
codice:
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
codice:
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
codice:
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 :
codice:
New With {Key .Barcode= c.Barcode, Key .CodiceProtocollo=c.CodiceProtocollo, Key .Data_consegna=d.Data_consegna}