none
problema: si cambia de color la celda del grid pero al termino de la ejecución regresa a blanco RRS feed

  • Pregunta

  • Tengo un problema en este formulario, necesito darle color a la celda RESTANTES, ya lo hace(adjunto el código que utilizo), el problema aqui es que como lo muestra la imagen, en tiempo de ejecución y con un msgbox deteniéndola si pone el color pero una vez terminado regresa el fondo a blanco. que podra ser? 


    Imports System.Data.SqlClient
    Public Class Surtido_kanban

        Function DISPAROS()
            Dim Sql = "SELECT [reporteador].[dbo].[disparos].[id_ubicacion] AS ID ,[fecha] FECHA,[hora] HORA,[reporteador].[dbo].[ubicaciones_kanban].[Descripcion] PRODUCTO ,[reporteador].[dbo].[ubicaciones_kanban].[c_contenedor]  CANTIDAD ,[reporteador].[dbo].[ubicaciones_kanban].[Tiempo] TIEMPO ,   DATEADD(minute,TIEMPO,HORA) TERMINO, DATEDIFF( Minute ,  CONVERT(nvarchar(10), GETDATE(), 108), DATEADD(minute,TIEMPO,HORA) ) as RESTANTES" _
                & " FROM [reporteador].[dbo].[disparos] LEFT JOIN [reporteador].[dbo].[ubicaciones_kanban] ON   [reporteador].[dbo].[ubicaciones_kanban].id_ubicacion = [reporteador].[dbo].[disparos].id_ubicacion order by [fecha],[hora]"
            Try
                Dim lDataAdapter As New SqlDataAdapter(Sql, Pedidos.conexion)
                Dim lDataTable As New DataTable
                lDataAdapter.Fill(lDataTable)
                Me.DataGridView1.DataSource = lDataTable
                DataGridView1.Columns(0).Width = 100
                DataGridView1.Columns(1).Width = 150
                DataGridView1.Columns(2).Width = 150
                DataGridView1.Columns(3).Width = 300
                DataGridView1.Columns(4).Width = 150
                DataGridView1.RowHeadersVisible = False
                DataGridView1.DefaultCellStyle.Font = New Font("Arial", 14)
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Atencion", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
            Try
                If DataGridView1.Rows.Count > 0 Then
                    For i As Integer = 0 To DataGridView1.Rows.Count - 1

                        Dim CellChange As String = DataGridView1.Rows(i).Cells(7).Value.ToString().Trim()
                        If CellChange.Contains("RESTANTES") <= 0 Then

                            With DataGridView1
                                .Rows(i).Cells(7).Style.ForeColor = Color.Gray
                                MsgBox(.Rows(i).Cells(7).Value)
                            End With
                        End If

                    Next
                End If
            Catch e As Exception
                MessageBox.Show(e.ToString())
            End Try
        End Function

        Private Sub Surtido_kanban_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            lbl_tiempo.Text = Now.ToString("hh:mm:ss")
            DISPAROS()

        End Sub
    End Class

    • Cambiado Enrique M. Montejo viernes, 22 de junio de 2018 15:01 Pregunta relacionada con controles de Windows Forms.
    martes, 19 de junio de 2018 18:28