Dim query = (From m In Context.Tab_movimenti
                             Where m.Idstruttura = id And m.arrivo = data
                             Group By codstruttura = m.Idstruttura, idprovenienza = m.idprovenienza, strprovenienza = m.Tab_comuni_nazioni.descrizione,
                                      idtipogruppo = m.idtipogruppo, strtipogruppo = m.Tab_tipogruppo.nomegruppo, dataelaborazione = m.arrivo, movchiuso = m.movchiuso, tipo = m.Tab_comuni_nazioni.tipo, stato = "ARRIVO" Into mov = Group
                             Select New With {codstruttura, idprovenienza, strprovenienza, idtipogruppo, strtipogruppo, dataelaborazione, movchiuso, .nmov = mov.Count, stato, .tipomov = If(tipo = "ITA", "ITALIANI", "STRANIERI")}).Concat _
                             (From m In Context.Tab_movimenti
                              Where m.Idstruttura = id And m.partenza = data
                              Group By codstruttura = m.Idstruttura, idprovenienza = m.idprovenienza, strprovenienza = m.Tab_comuni_nazioni.descrizione,
                                      idtipogruppo = m.idtipogruppo, strtipogruppo = m.Tab_tipogruppo.nomegruppo, dataelaborazione = m.partenza, movchiuso = m.movchiuso, tipo = m.Tab_comuni_nazioni.tipo, stato = "PARTENZA" Into mov = Group
                              Select New With {codstruttura, idprovenienza, strprovenienza, idtipogruppo, strtipogruppo, dataelaborazione, movchiuso, .nmov = mov.Count, stato, .tipomov = If(tipo = "ITA", "ITALIANI", "STRANIERI")}).ToList


            RadGrid1.DataSource = query
            RadGrid1.DataBind()