Ripulire datagridview

  Dim buttons As New DataGridViewButtonColumn()
        With buttons
            .HeaderText = "Modifica"
            .Text = "Modifica"
            .UseColumnTextForButtonValue = True
            .AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
            .FlatStyle = FlatStyle.Standard
            .Frozen = True
            .CellTemplate.Style.BackColor = Color.Honeydew
            .DisplayIndex = 0
        End With
        DataGridView1.Columns.Add(buttons)
        Dim buttons1 As New DataGridViewButtonColumn()
        With buttons1
            .HeaderText = "Elimina"
            .Text = "Elimina"
            .UseColumnTextForButtonValue = True
            .AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
            .FlatStyle = FlatStyle.Standard
            .Frozen = True
            .CellTemplate.Style.BackColor = Color.Honeydew
            .DisplayIndex = 1
        End With
        DataGridView1.Columns.Add(buttons1)
        Dim buttonsimg As New DataGridViewImageColumn
        With buttonsimg
            .Image = My.Resources.kuser
            .MinimumWidth = 24
            .Frozen = True
            .ImageLayout = DataGridViewImageCellLayout.Stretch
            .AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
            .CellTemplate.Style.BackColor = Color.Honeydew
            .DisplayIndex = 2
        End With
        DataGridView1.Columns.Add(buttonsimg)

        ObjC59.CodAlbergo = codalb
        ObjC59.CodComAlbergo = codcomalb
        ObjC59.DataElaborazione = data
        C59Coll = Read_record.CaricaSchedine(ObjC59)
        Movimenti = New DataSet1.MovimentiDataTable
        For i As Integer = 0 To C59Coll.Count - 1
            MovimentiMyRow = CType(Movimenti.NewRow, DataSet1.MovimentiRow)
            MovimentiMyRow.Progschedina = C59Coll.Item(i).NumeroSchedina
            MovimentiMyRow.codalbergo = C59Coll.Item(i).CodAlbergo
            MovimentiMyRow.codcomalbergo = C59Coll.Item(i).CodComAlbergo
            MovimentiMyRow.DataArrivo = CDate(C59Coll.Item(i).DataArrivo)
            If C59Coll.Item(i).DataPartenza = String.Empty Then
            Else
                MovimentiMyRow.DataPartenza = CDate(C59Coll.Item(i).DataPartenza)
            End If
            MovimentiMyRow.nrcomp = C59Coll.Item(i).NumeroComponenti
            MovimentiMyRow.Stato = C59Coll.Item(i).StatoResidenza
            MovimentiMyRow.Comune = C59Coll.Item(i).ComuneResidenza
            MovimentiMyRow.Gruppo = C59Coll.Item(i).DescrizioneGruppo
            Movimenti.Rows.Add(MovimentiMyRow)
        Next i
        ds.Merge(Movimenti)
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "Movimenti"
        Me.DataGridView1.Columns(3).Visible = False
        Me.DataGridView1.Columns(4).Visible = False
        Me.DataGridView1.Columns(5).Visible = False

e.CellStyle.BackColor = Color.XXX

        If Me.DataGridView1.Columns(4).Index = _
        e.ColumnIndex AndAlso e.RowIndex >= 0 Then
            If Me.DataGridView1.Rows(e.RowIndex).Cells.Item(4).Value Is "Arrivo" Then
                e.CellStyle.BackColor = Color.Green
            ElseIf Me.DataGridView1.Rows(e.RowIndex).Cells.Item(4).Value Is "Partenza" Then
                e.CellStyle.BackColor = Color.Red
            End If
        End If

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra