19-11-22, 08:29 PM
الرجاء التعديل على هدا الكود والمساعدة فية
مشكلة الكود هو عند البحت بحلقات التكرار وعدم وجود الرقم المطابق
نريد رسالة والخروج دون تنفيد باقى الكود
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
مشكلة الكود هو عند البحت بحلقات التكرار وعدم وجود الرقم المطابق
نريد رسالة والخروج دون تنفيد باقى الكود
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

