[أبو خالد الشكري]

تم التعديل على الكود
أرجو تجربته

كود :

On Error GoTo tamer1

For i As Integer = 0 To DataGridView3.Rows.Count.ToString - 1

           For a As Integer = 0 To DataGridView3.ColumnCount.ToString - 1

               If DataGridView3.Item(a, i).Value = "0." & Val(TextBox13.Text) Or DataGridView3.Item(a, i).Value = (TextBox13.Text) Then

                   If DataGridView3.Item(a, i).Value < (1).ToString Then
                       DataGridView3.ClearSelection()
                       DataGridView3.Item(a, i).Selected = True
                       Label15.Text = ""
                       Label16.Text = ""
                       Label15.Text = "كانت فى السطر" & " " & (a + 1)
                       Label16.Text = "Field" & (a + 1)


                   ElseIf DataGridView3.Item(a, i).Value > (1).ToString Then
                       Label15.Text = ""
                       Label16.Text = ""
                       Label15.Text = " هدا الرقم غير مشطوب"
                       MsgBox(" هدا الرقم غير مشطوب")
                       Exit For

                   End If
               End If
           Next
       Next

       Exit Sub

tamer1:

       If Err.Number <> 0 Then
           Err.Clear()
       End If