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

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

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

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

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

'…

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

'…