[larbihamri]

السلام عليكم
كيف حال الجميع

عندي داتاقريد و اريد ان اعمل مقارنة بينها و بين داتا تايبل فإذا كان هناك تطابق يتم إضافة حقل الكمية الخاص بالداتاقريد الى حقل الكمية في الداتا تيبل و ان لم يكن هناك تطابق يتم إضافة سطر جديد في الداتاتيبل و إضافة السجل 
قمت بإستعمال جملة For التالية لكن لم اتوصل الى النتيجة المرجوة 

كود :

For i As Integer = 0 To dgv_achat.RowCount - 1
           For j As Integer = 0 To dtproduit.Rows.Count - 1
               If (dgv_achat.Rows(i).Cells("IdProduit").Value) = (dtproduit.Rows(0).Item("id")) Then
                   dtproduit.Rows(0).Item("qty") = dtproduit.Rows(0).Item("qty") + (dgv_achat.Rows(i).Cells("prix_a_a").Value)
               Else
                   Dim NewRow As DataRow = dtproduit.NewRow
                   NewRow(1) = dgv_achat.Rows(i).Cells("famille_produit_a").Value
                   NewRow(2) = dgv_achat.Rows(i).Cells("nom_produit_a").Value
                   NewRow(3) = dgv_achat.Rows(i).Cells("qty_a").Value
                   NewRow(4) = dgv_achat.Rows(i).Cells("prix_a_a").Value
                   NewRow(5) = dgv_achat.Rows(i).Cells("prix_v_a").Value
                   NewRow(6) = dgv_achat.Rows(i).Cells("total_a").Value
                   dtproduit.Rows.Add(NewRow)
               End If
           Next
       Next

       cmdb = New OleDbCommandBuilder(adapterEdit)
       adapterEdit.Update(dtproduit)
       dtproduit.AcceptChanges()

المشكلة هي انه إذا لم يكن هناك تطابق يقوم بإضافة السجل الجديد لكن متكرر