String of integer

[old Hippy]

Oeps Alles blauw

 

[JoZ1]

Bij mij werkt het wel.

Mag ik jouw code zien?

 

[old Hippy]

Beste Wampier en JoZ1

Let wel ik heb alle drie de codes even in een aparte waarschuwing gezet en roep ze met een button aan

code van JoZ1

Function Alert_WaarS3() As Boolean

        For Each NRow In Me.OmschrijvingartikelenDataGridView.Rows
            If NRow.Cells(7).Value IsNot DBNull.Value Then
                If VarType(NRow.Cells(7).Value) = vbInteger Then
                    NRow.DefaultCellStyle.ForeColor = Color.Black
                ElseIf VarType(NRow.Cells(7).Value) = vbString Then
                    NRow.DefaultCellStyle.ForeColor = Color.Blue
                Else

                End If
            End If
        Next

    End Function

resultaat


Mijn Zoals ik het wil maar dan de kleur blauw gekozen door een willekeuriggetext

 

[wampier]

Ah, in principe heeft mijn code voor een deel gelijk. indien je wil dat blauw de hoofdkleur is, moet je in mijn code de rode en blauwe code omdraaien

Het lijkt erop dat VB eerst de conversion maakt en dan de qualifier. Nieuwe poging met de suggestie van martin

Function Alert_WaarS() As Boolean

        For Each NRow In Me.OmschrijvingartikelenDataGridView.Rows
            if NRow.Cells(7).Value IsNot DBNull.Value Then
                If Isnumeric(NRow.Cells(7).Value()) = false Then
                    NRow.DefaultCellStyle.ForeColor = Color.Blue
                End If

            elseIf NRow.Cells(6).Value IsNot DBNull.Value Then
                If val(NRow.Cells(6).Value()) < 1 Then
                    NRow.DefaultCellStyle.ForeColor = Color.Red
                    Label1.Text = "LET OP " & vbNewLine & "Geen voorraad" & vbNewLine & vbNewLine & vbNewLine & "Van de rood geaceered artikelen"
                    Label1.Image = ImageList1.Images(0)

            Else
                   NRow.DefaultCellStyle.ForeColor = Color.Black
            End If
        Next
  
    End Function

*edit* blauw/ nietblauw was omgedraaid, aangepast

 

[old Hippy]

OK Wampier dit werkt zat nog een end if foutje in.

Dit is de werkende code.

Function Alert_WaarS2() As Boolean

        For Each NRow In Me.OmschrijvingartikelenDataGridView.Rows
            If NRow.Cells(7).Value IsNot DBNull.Value Then
                If IsNumeric(NRow.Cells(7).Value()) = False Then
                    NRow.DefaultCellStyle.ForeColor = Color.Blue
                ElseIf NRow.Cells(6).Value IsNot DBNull.Value Then
                    If Val(NRow.Cells(6).Value()) < 1 Then
                        NRow.DefaultCellStyle.ForeColor = Color.Red
                        Label1.Text = "LET OP " & vbNewLine & "Geen voorraad" & vbNewLine & vbNewLine & vbNewLine & "Van de rood geaceered artikelen"
                        Label1.Image = ImageList1.Images(0)
                    Else
                        NRow.DefaultCellStyle.ForeColor = Color.Black
                    End If
                End If
            End If
        Next

    End Function

Heel hartelijk bedankt alle twee. Wampier en JoZ1
Ben hier zeer dankbaar mee ga de de code in het project uit proberen
Vriendelijke groet Old Hippy

PS ook martin bedankt natuurlijk