Visual Basic.NET - Invisibilizar contenido de celda en columna especifica de DataGridView

Pos: 318

Val: 5

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Claudio Barral (8 intervenciones) el 12/09/2019 18:12:40

Buenas tardes a todos.

La consulta es ver como puedo recorrer con un bucle el contenido de columnas especificas de un DGV y aquellas Celdas que contengan como valor 0 (Cero), no sean visibles. Son tres o cuatro columnas que ese bucle debiera recorrer e ir verificando que las celdas que tengan 0 sean invisibles. (Ojo, no quiero que elimine el contenido, solo que no se vea en la celda). Esto debiera hacerlo en por lo menos 3 o 4 columnas distintas del DGV.

For Each Row As DataGridViewRow In Me.DataGridView1.Rows

Dim Valor As Integer = Row.Cells("Neto").Value

If Valor = 0 Then

"AQUI EL CODIGO"

End If

Next

Por ejemplo en la columna "Neto", todas aquellas celdas que tengan Cero como valor, el mismo no aparezca.

Desde ya muchas gracias por la posible ayuda.

Saludos.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 3.353

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Phil Rob (1554 intervenciones) el 13/09/2019 22:26:56

Hola,

Quizá que el codigo seguiente pede te ayudar :

If Valor = 0 Then

DatagridView1.Item("Neto", Row.RowIndex).Style.ForeColor = Color.White

' o si usa otros colores :

'  DatagridView1.Item("Neto", Row.RowIndex).Style.ForeColor = DatagridView1.Item("Neto", Row.rowIndex).Style.BackColor

End If

Espero te dar una buena idea ...

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 318

Val: 5

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Claudio Barral (8 intervenciones) el 14/09/2019 13:10:28

Muchas gracias Phil Rob.
Voy a probar y te comento.

Valora esta respuesta

Comentar

Pos: 318

Val: 5

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Claudio (8 intervenciones) el 15/09/2019 03:48:06

Hola Phil Rob. Primero que nada disculpas por la demora en contestar.
Estuve probando lo que me pasaste y no funciona desde donde originalmente se lanza el codigo. (En Modulo con un Public Sub).
Algo si hizo cuando puse este código en el evento CellFormatting del DGV, pero como lleva condicionales me daba error.Te adjunto el código y quizás puedas notar algo. Desde ya, muy agradecido por la ayuda.

Public Sub Evalua()

    With My.Forms.FrmRegistrosCompras

        If .cmbCuenta.Text = "MATERIA PRIMA" Then

            dr("Materia_Prima") = CDec(.txtNeto.Text)

            dr("Neto") = 0

            dr("Gasto_Fabric") = 0

            For Each Row As DataGridViewRow In .DataGridView1.Rows

                Dim Valor As Integer = Row.Cells("Neto").Value

                If Valor = 0 Then

                    .DataGridView1.Item("Neto", Row.Index).Style.ForeColor = .DataGridView1.Item("Neto", Row.Index).Style.BackColor

                    .DataGridView1.Item("Gasto_Fabric", Row.Index).Style.ForeColor = .DataGridView1.Item("Gasto_Fabric", Row.Index).Style.BackColor

                End If

            Next

        ElseIf .cmbCuenta.Text = "GASTO DE FABRICACION" Then

            dr("Materia_Prima") = 0

            dr("Neto") = 0

            dr("Gasto_Fabric") = CDec(.txtNeto.Text)

        Else

            dr("Materia_Prima") = 0

            dr("Neto") = CDec(.txtNeto.Text)

            dr("Gasto_Fabric") = 0

        End If

    End With

End Sub

Este código va dentro de otro que arma el DGV , DataTable mediante y crea una nueva DataRow.

Public Sub SiOpcion_5_EnBoton_Siguiente_Compras()

    With My.Forms.FrmRegistrosCompras

        If Opcion = 5 Then

            Dim dt As New DataTable

            If .DataGridView1.RowCount >= 0 Then

                If (IsNothing(dt)) Then

                    dt.Columns.Add("Id_Mes_Año", GetType(Integer))

                    dt.Columns.Add("Registro", GetType(Integer))

                    dt.Columns.Add("Fecha", GetType(Date))

                    dt.Columns.Add("Razon_Social", GetType(String))

                    dt.Columns.Add("CUIT", GetType(String))

                    dt.Columns.Add("Comprobante", GetType(String))

                    dt.Columns.Add("Numero", GetType(String))

                    dt.Columns.Add("Materia_Prima", GetType(Decimal))

                    dt.Columns.Add("Gasto_Fabric", GetType(Decimal))

                    dt.Columns.Add("Cuenta", GetType(String))

                    dt.Columns.Add("Neto", GetType(Decimal))

                    dt.Columns.Add("IVA", GetType(Decimal))

                    dt.Columns.Add("Total", GetType(Decimal))

                    dt.Columns.Add("Cod_Proveedor", GetType(Integer))

                    dt.Columns.Add("Cod_Cuenta", GetType(Integer))

                    dt.AcceptChanges()

                    .DataGridView1.Columns.Clear()

                    .DataGridView1.DataSource = dt

                    dr = dt.NewRow()

                    dr("Id_Mes_Año") = CInt(.lblCodMesAno.Text)

                    dr("Registro") = CInt(.lblRegNro.Text)

                    dr("Fecha") = .DateTimePicker1.Value.ToShortDateString

                    dr("Razon_Social") = .cmbProveedor.Text

                    dr("CUIT") = .lblCuit.Text

                    dr("Comprobante") = .cmbComporobante.Text

                    dr("Numero") = .MaskedTextBox1.Text

                    Call Evalua()

                    'dr("Materia_Prima") = CDec(.txtNeto.Text)

                    'dr("Gasto_Fabric") = CDec(.txtNeto.Text)

                    dr("Cuenta") = .cmbCuenta.Text

                    'dr("Neto") = CDec(.txtNeto.Text)

                    dr("IVA") = CDec(.lblIvaImporte.Text)

                    dr("Total") = CDec(.lblValTotal.Text)

                    dr("Cod_Proveedor") = CInt(.lblCodProveedor.Text)

                    dr("Cod_Cuenta") = CInt(.lblCodCuenta.Text)

                    dt.Rows.Add(dr)

                    dt.AcceptChanges()

                Else

                    dt = TryCast(.DataGridView1.DataSource, DataTable)

                    dr = dt.NewRow()

                    dr("Id_Mes_Año") = CInt(.lblCodMesAno.Text)

                    dr("Registro") = CInt(.lblRegNro.Text)

                    dr("Fecha") = .DateTimePicker1.Value.ToShortDateString

                    dr("Razon_Social") = .cmbProveedor.Text

                    dr("CUIT") = .lblCuit.Text

                    dr("Comprobante") = .cmbComporobante.Text

                    dr("Numero") = .MaskedTextBox1.Text

                    Call Evalua() '<-- Public Evalua

                    'dr("Materia_Prima") = CDec(.txtNeto.Text)

                    'dr("Gasto_Fabric") = CDec(.txtNeto.Text)

                    dr("Cuenta") = .cmbCuenta.Text

                    'dr("Neto") = CDec(.txtNeto.Text)

                    dr("IVA") = CDec(.lblIvaImporte.Text)

                    dr("Total") = CDec(.lblValTotal.Text)

                    dr("Cod_Proveedor") = CInt(.lblCodProveedor.Text)

                    dr("Cod_Cuenta") = CInt(.lblCodCuenta.Text)

                    dt.Rows.Add(dr)

                    Dim dv As New DataView

                    dv = dt.DefaultView

                    dv.Sort = "Fecha ASC, Numero ASC"

                    .DataGridView1.DataSource = dv.ToTable()

                End If

            End If

        End If

        Call ConfiguraDGVyLabelsEnFrmRegistrosCompras()

    End With

End Sub

Captura.zip(232,7 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Phil Rob (1554 intervenciones) el 15/09/2019 21:15:56

Hola,

Probablemente que la corrección es :

'…

Dim UnColor As Color = DataGridView1.DefaultCellStyle.BackColor

For Each Row As DataGridViewRow In .DataGridView1.Rows

    Dim Valor As Integer = Row.Cells("Neto").Value

    If Valor = 0 Then

        .DataGridView1.Item("Neto", Row.Index).Style.ForeColor = UnColor

        .DataGridView1.Item("Gasto_Fabric", Row.Index).Style.ForeColor = UnColor

    End If

Next

'…

En mi probas, este funciona (vista el video : https://www.dropbox.com/s/4cpd2v5bg6brov9/DGV.mp4?dl=0)
Adjunto mi proyecto para testar (TestDataGrid2.zip). Mi código es un poco diferente.

Buena tarde

TestDataGrid2.zip(15,9 KB)

Valora esta respuesta

Comentar

Pos: 318

Val: 5

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Claudio Barral (8 intervenciones) el 16/09/2019 03:00:16

Muchas Gracias Phil.
Ahi estuve probando y por ahora no hace lo que debiera, de todos modos vi Tu video y vere si quizas cambiando detalles logre que funcione.
Aplicando las lineas de código que me pasaste, no funciona. La verdad no se que estoy haciendo mal. Ya probé mil cosas y lo que propones, me parece totalmente lógico y debiera funcionar, pero bueno, no es este el caso.
El tema es que al intentar ingresar la primera Row me da error (aplicando el código del Video), porque el DGV esta vacio. por eso estare viendo con atención como poder corregir esto.
Insisto en agradecerte enormemente toda la colaboración que dispensas. Lo que logre, te lo voy a contar.
Abrazo.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.353

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Phil Rob (1554 intervenciones) el 16/09/2019 11:23:50

Hola,

No tengo el tiempo ahora, quizá miraré en la tarde.

"porque el DGV esta vacio.", para este, usas Try Catch

Salutos,

Valora esta respuesta

Comentar

Pos: 15

Val: 180

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Richard (54 intervenciones) el 17/09/2019 22:23:44

Hola, nunca es tarde para seguir aprendiendo.
En mis años de programador, jamás tuve la necesidad de ocultar una celda de un datagrid, y a mi criterio personal, esto es imposible de hacer, si se puede ocultar filas, columnas pero de ahí a que se pueda ocultar solo una celda, no tiene lógica.

Como te indicaron, deberías de validar si esa celda tiene un valor 0, reemplazar por "" así solucionaría.

Valora esta respuesta

-1

Comentar

Pos: 318

Val: 5

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Claudio Barral (8 intervenciones) el 18/09/2019 14:11:01

Muchas gracias Richard por tu comentario. Ocurre que las celdas aportan a una Suma por columna según a la Cuenta a que pertenezcan C/U.
O sea, la cuenta Materia prima, la cuenta Gastos de Fabricación, la cuenta Varios, etc., el hecho de poner " " lleva a un error al momento de sumar.
Fijate que cada vez que ingreso una Row, pasa convertida en Cdec, Ej: dr("Materia_Prima") = CDec(.txtNeto.Text).

Lógicamente esto va a ser guardado después a un tabla de una DB.
Bueno, no se, seguiré viendo. Desde ya, muchas gracias por tu aporte.
Saludos.

Valora esta respuesta

Comentar

Pos: 15

Val: 180

Invisibilizar contenido de celda en columna especifica de DataGridView

Publicado por Richard (54 intervenciones) el 18/09/2019 14:16:40

Bien, es muy sencillo.
Para mostrar en el gris, lo reemplaza por "" y al momento de guardar en tabla pones su valor que es cero y haces la suma.

Valora esta respuesta

-1

Comentar

Winsock cliente/servidor direccion ip del cliente

Proyecto Urgente