viernes, 3 de julio de 2015

Colorear reglones en un GridView tomando una condición


El siguiente código muestra en un GridView el contenido de la tabla EMPLEADOS y colorea los reglones que tenga el puesto ANALISTA.

Try

Dim Cnn As New SqlConnection(Session("Conexion"))
Dim Ds As New DataSet
Dim Da As New SqlClient.SqlDataAdapter("select puesto as [PUESTO], nombre as [NOMBRE], " & _
"departamento as [DEPARTAMENTO] from EMPLEADOS ", Cnn)
Da.Fill(Ds, "EMPLEADOS")
Me.GridView1.DataSource = Ds.Tables("EMPLEADOS")
Me.GridView1.DataBind()
If Me.GridView1.Rows.Count > 0 Then
      For x = 0 To Me.GridView1.Rows.Count - 1
         'COLOREA EL RENGLON SI EL PUESTO ES ANALISTA
         If Me.GridView1.Rows(x).Cells(0).Text = "ANALISTA" Then
            Me.GridView1.Rows(x).BackColor = Drawing.Color.AliceBlue
         End If
      Next
End If
Catch err As Exception
Me.mensaje.Text = err.Message
End Try

El resultado en pantalla seria:

Comparte