[AMAZ1972AMAZ]

الرجاء التعديل على هدا الكود والمساعدة فية
مشكلة الكود هو عند البحت بحلقات التكرار وعدم وجود الرقم المطابق
نريد رسالة والخروج دون تنفيد باقى الكود


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 Sub

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

Next

Next