20-11-22, 12:58 AM
(آخر تعديل لهذه المشاركة : 21-11-22, 02:50 AM {2} بواسطة أبو خالد الشكري.)
تم التعديل على الكود
أرجو تجربته
أرجو تجربته
كود :
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

