[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا تعديل على كود الاضافة
اولا نعرف متغير من نوع بولين ونجعل قيمته False
اولا سيتم التحقق من وجود السجل ان كان موجودا سيضيف 1 ويخرج
وان لم يكن موجودا خلال مقارنته في حلقة الدوران مغ كل سجل سيجعل قيمة المتغير ب True
وبعد انتهاء حلقة الدوران سنتحقق ان كانت القيمة true سنضيف سجل جديد مع قيمة 1
ثم نعيد قيمة المتغير الى false مرة اخرى 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim kk As Boolean = False
       For i As Integer = 0 To dvg_purchas.Rows.Count - 1
           If dvg_purchas.Rows(i).Cells(0).Value.ToString = txt_code.Text Then
               MsgBox("هذا الكود مسجل من قبل سيتم اضافة مرة اخرى   :" + txt_code.Text, MsgBoxStyle.Critical, "الكود مكرر")
               dvg_purchas.Rows(i).Cells(1).Value = dvg_purchas.Rows(i).Cells(1).Value + 1
               Exit Sub
           Else
               kk = True
           End If
       Next
       If kk = True Then
           Dim row As DataRow = dt_Item.NewRow
           row(0) = txt_code.Text
           row(1) = 1
           dt_Item.Rows.Add(row)
           MsgBox("تمت الاضافة" + txt_code.Text, MsgBoxStyle.Information, "اضافة")
       End If
       kk = False
   End Sub