26-04-19, 02:51 PM
السلام عليكم
كيف حال الجميع
عندي داتاقريد و اريد ان اعمل مقارنة بينها و بين داتا تايبل فإذا كان هناك تطابق يتم إضافة حقل الكمية الخاص بالداتاقريد الى حقل الكمية في الداتا تيبل و ان لم يكن هناك تطابق يتم إضافة سطر جديد في الداتاتيبل و إضافة السجل
قمت بإستعمال جملة For التالية لكن لم اتوصل الى النتيجة المرجوة
المشكلة هي انه إذا لم يكن هناك تطابق يقوم بإضافة السجل الجديد لكن متكرر
كيف حال الجميع
عندي داتاقريد و اريد ان اعمل مقارنة بينها و بين داتا تايبل فإذا كان هناك تطابق يتم إضافة حقل الكمية الخاص بالداتاقريد الى حقل الكمية في الداتا تيبل و ان لم يكن هناك تطابق يتم إضافة سطر جديد في الداتاتيبل و إضافة السجل
قمت بإستعمال جملة 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()