تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طريقة عمل جملة for بطريقة صحيحة
#1
السلام عليكم
كيف حال الجميع

عندي داتاقريد و اريد ان اعمل مقارنة بينها و بين داتا تايبل فإذا كان هناك تطابق يتم إضافة حقل الكمية الخاص بالداتاقريد الى حقل الكمية في الداتا تيبل و ان لم يكن هناك تطابق يتم إضافة سطر جديد في الداتاتيبل و إضافة السجل 
قمت بإستعمال جملة 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()
المشكلة هي انه إذا لم يكن هناك تطابق يقوم بإضافة السجل الجديد لكن متكرر
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

فى البداية لا اعلم كيف تتم تعبئة الداتا جريد لديك
فاذا كان من خلال استعلام فلماذا لم تقوم بعمل استعلام اخر للبحث
أو فلتر على داتا تيبل أو الداتا جريد

اذا قمت بارفاق مثال لما لديك
سيتم التعديل عليه بالصورة الصحيحة طبقاً لما تريده

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: larbihamri , عبد العزيز البسكري
#3
اخي elgokr السلام عليكم 
لقد قمت بهذا العمل حتى لا يكون هناك استهلاك لموارد الجهاز و هذا ظنا مني انه في كل سطر يقوم بعمل استعلام للداتا يؤدي الى استهلاك الرامات خاصة اذا كان الجدول فيه سجلات كثيرة

الداتا قريد ليست مربوطة بداتاتيبل و تعبئتها تكون عن طريق إضافة صف جديد و استقبال البيانات من التكست بوكس
الرد
تم الشكر بواسطة:
#4
ولا يهمك اخى الفاضل 

يمكنك ارفاق مثال لما لديك
ليتم الاطلاع عليه وعمل الكود المناسب لهذا

وكذلك يمكنك مراجعة هذا الموضوع

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لعد 2 حقل محمدالزند 8 159 منذ 10 ساعة مضت
آخر رد: alsalamoni
  ماهي طريقة سحب الصورة من الكاميرا مباشرة إلى قاعدة البيانات جيولوجي مبتدئ 0 37 16-02-20, 11:29 AM
آخر رد: جيولوجي مبتدئ
  ماهي طريقة تشغيل البرامج المصممة على vb.net2013 على ويندوز xp جيولوجي مبتدئ 2 95 04-02-20, 01:31 PM
آخر رد: جيولوجي مبتدئ
  [سؤال] طريقة سحاب النصوص من كمبوبوكس دخل الموقع Ali Edal 6 284 03-02-20, 09:42 PM
آخر رد: alsalamoni
  هل من طريقة لحساب الحروف بهذه الطريقة seif mohamed 7 298 02-02-20, 01:54 AM
آخر رد: seif mohamed
  [VB.NET] طريقة الخروج من الإجراء larbihamri 7 194 30-01-20, 08:53 PM
آخر رد: alsalamoni
  ماهي طريقة عمل ملف تنفيذي setup لبرنامج يحتوي تقارير كريستال ريبورت وقاعدة بيانات جيولوجي مبتدئ 3 303 28-01-20, 12:28 PM
آخر رد: عبد العزيز البسكري
  شباب اريد طريقة عمل اداة لعمل اشارة فى الانساجرام Mina Botros 0 78 24-01-20, 03:59 PM
آخر رد: Mina Botros
  مشكلة في تعديل البيانات باستخدام جملة update جيولوجي مبتدئ 4 212 12-01-20, 01:53 AM
آخر رد: عبد العزيز البسكري
  ماهي طريقة الطباعة مباشرة من الكريستال ريبورت بدون فتحه جيولوجي مبتدئ 2 171 10-01-20, 01:47 AM
آخر رد: جيولوجي مبتدئ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم