Colorear un Grid

[kitty14]

Me gustaría saber como puedo colorear las filasde un grid. Tengo una tabla "persona", la persona puede ser un socio o cliente, dependiendo de que sea uno u otro me gustaría poder colorear la fila. ¿Alguien sabe como hacer eso?
¿Me podrias indicar con un pequeño ejemplo la manera de hacerlo?

Saludos y gracias

[jhonwilliams]

Si esta pregunta esta para WinForms, asi:

1. Recorres el datagrid con un foreach

Código:

foreach(DataGridViewRow fila in DataGrid.Rows)
{

}

2. Realiza un swicth o un if, para colorear el que te parezca mejor.

Código:

swicth(fila.Cells["TipoCliente"].ToString())
{
     Case "Socio":
       Codigo para colorear

     Case "Otro Tipo":
       Codigo para colorear

}

3. para colorear usas algo como esto.

Código:

fila.Cells["TipoCliente"].Style.BackColor = Color.Red;
fila.Cells["Nombre"].Style.BackColor = Color.Red;
fila.Cells["Telefono"].Style.BackColor = Color.Red;

Nota: Como el color se asigna para la celda, entonces debes aplicarlo a cada celda de la fila, es por eso que te deje tres lineas de ejemplo cada una con el un nombre diferente de columna.

Jhon Williams

[sagma]

hola que tal brother, aca tengo un código para winform:

usando los tables estyle:

Código:

        Dim myEstiloCol7 As New DGTxtColColor
        myEstiloCol7.MappingName = "accondesc"
        myEstiloCol7.HeaderText = "Estado"
        myEstiloCol7.Width = 65

Código:

Public Class DGTxtColColor

    Inherits DataGridTextBoxColumn

    Private mColorFondoCondicion As Color

    Protected Overloads Overrides Sub Paint(ByVal g As System.Drawing.Graphics, _
    ByVal bounds As System.Drawing.Rectangle, _
    ByVal source As System.Windows.Forms.CurrencyManager, _
    ByVal rowNum As Integer, _
    ByVal backBrush As System.Drawing.Brush, _
    ByVal foreBrush As System.Drawing.Brush, _
    ByVal alignToRight As Boolean)

        Dim oBrush As SolidBrush
        Dim sValorCampo As String
        Dim ofiladatos As DataRowView = source.List(rowNum)

        sValorCampo = CType(ofiladatos("accondesc"), String).Trim()

        Select Case sValorCampo
            Case "PASIVOS"
                oBrush = New SolidBrush(Color.Yellow)
            Case "EGRESADO"
                oBrush = New SolidBrush(Color.Gold)
            Case Else
                oBrush = backBrush
        End Select

        'If CType(ofiladatos("accondesc"), String).Trim() = "EGRESADO" Then
        'oBrush = New SolidBrush(Color.Gold)
        'Else
        'oBrush = backBrush
        'End If

        MyBase.Paint(g, bounds, source, rowNum, _
            oBrush, _
            foreBrush, _
            alignToRight)
    End Sub

End Class

suerte