Waar om werkt dit niet ??????

[old Hippy]

Hallo beste helpers

ik gebruik de volgende code om een rij van kleur te veranderen.
dit werkt goed.

maar als ik er een label bij zet werkt de label niet en blijft zichtbaar.
De kleur veranderd wel als de kleur Color.Black is wil ik de label niet zien
wat doe ik niet goed.???

En hoe los ik dat op????

For Each NRow In Me.ProductonderdelenDataGridView.Rows
            If NRow.Cells(5).Value IsNot DBNull.Value Then
                If CType(NRow.Cells(5).Value(), Integer) > 0 Then
                    NRow.DefaultCellStyle.ForeColor = Color.Black
          Label4.Visible=False
 Else
                    NRow.DefaultCellStyle.ForeColor = Color.Red
         Label4.Visible = True
         End If
            Else
            End If
        Next

 

[leofact]

Het beste gebruik je een label van de werkset besturings elementen.
In dat geval helpt het om het blad te vermelden dus b.v. blad1.label4

Verder = treu, true maar dat zal een typefoutje in de post zijn.

Mvg Leo

 

[old Hippy]

Hi Best leofact
Bedankt voor je reactie

ik ken geen Blad1 ? in visual basic wel in VBA
Ik werk met Visual studeo standaard
Groet Old Hippy

 

[leofact]

Sorry.

Ik dacht aan het gebruik van rows af te te lezen dat je met Excel bezig was.

Helaas kan ik je dan niet verder helpen.

 

[old Hippy]

Hi leofact

Even goed dank voor je reactie.

Vriendelijke Groet Old Hippy

 

[old Hippy]

Probleem opgelost

code als volgt

  For Each NRow In Me.ProductonderdelenDataGridView.Rows
            If NRow.Cells(5).Value IsNot DBNull.Value Then
                If CType(NRow.Cells(5).Value(), Integer) > CType(NRow.Cells(0).Value(), Integer) - 1 Then
                    NRow.DefaultCellStyle.ForeColor = Color.Black

                Else
                    NRow.DefaultCellStyle.ForeColor = Color.Red
                    Label4.Visible = True
                    Label27.Text = "voor " & OntwerpnaamComboBox.Text & vbNewLine & " Is er onvoldoende voorraad van van de ROOD GEARCEERDE Artikelen."
                End If
            Else
            End If
        Next