تقييم الموضوع :
  • 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
ولا يهمك اخى الفاضل 

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

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

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

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] جملة اتصال بملف اكسيل ٢٠٠٣ بكلمة مرور Mr.H 0 30 اليوم, 01:07 AM
آخر رد: Mr.H
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 362 12-12-23, 03:14 AM
آخر رد: محمد خيري
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  مشكلة في جملة الاتصال مع sqlserver strongriseman 0 216 21-11-23, 01:32 PM
آخر رد: strongriseman
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030

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


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