Dim tcc As TableCellCollection = e.Row.Cells
                Dim nTotalCols As Integer = tcc.Count
                For i As Integer = nTotalCols - 1 To 1 Step -1
                    e.Row.Cells.RemoveAt(i)
                Next
                Dim c As TableCell = e.Row.Cells(0)
                c.ColumnSpan = nTotalCols
                Dim dr As System.Data.Common.DbDataRecord = DirectCast(e.Row.DataItem(), System.Data.Common.DbDataRecord)
                c.Text = "Id regione = " & dr(0).ToString() & ", Nome regione = " & dr(1).ToString()