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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج تعديل على الكود هدا (/showthread.php?tid=44340)

محتاج تعديل على الكود هدا - AMAZ1972AMAZ - 19-11-22

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


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

RE: محتاج تعديل على الكود هدا - أبو خالد الشكري - 20-11-22

تم التعديل على الكود
أرجو تجربته
كود :
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