Caricare un dictionary di liste usando direttamente linq

[code lang=”vb”]

Function addToDic(dic As Dictionary(Of Integer, List(Of Integer)), chiave As Integer, valore As Integer) As Integer
If dic.ContainsKey(chiave) Then
dic(chiave).Add(valore)
Else
Dim li As New List(Of Integer)
li.Add(valore)
dic.Add(chiave, li)
End If
Return 1
End Function

[/code]

[code lang=”vb”]

Dim dic As New Dictionary(Of Integer, List(Of Integer))
Dim tot = (From r In insieme Select addToDic(dic, CInt(r.campochiave), CInt(r.campovalore))).Count

[/code]

Costruzione di una struttura complessa a partire da una relazione db complessa, implementata con fk su db:
Utenti ->(a molti) -> Azioni -> (a uno) -> TipoAzioni
(tipi anonimi/entity framework)

[code lang=”vb”]

Dim Query = (From r In UTENTI Select New With {r.ID, r.DATA_UTENTE, r.NOME, r.COGNOME, Key .azi = r.AZIONI.Select(Function(k) New With {k.ID_AZIONE, k.DATA_AZIONE, k.TIPO_AZIONE.NOME_TIPO})}).ToList

[/code]