تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟
#3
وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم , هذا كود الزر كامل والذي يقوم بحذف التكرار والجمع :

PHP كود :
Private Sub Command1_Click()
On Error Resume NextErr.Clear

Dim lCounter     
As Long
Dim lCounter2    
As Long
Dim lTemp        
As Long
Dim lAccumulator 
As Long
Dim QtyTotal 
As Long

lTemp 
MSFlexGrid1.Rows 1
lAccumulator 
0

For lCounter 1 To lTemp
    
    QtyTotal 
Val(Trim$(MSFlexGrid1.TextMatrix(lCounter1)))
    
    For 
lCounter2 lCounter 1 To lTemp

        
'now compare every item to current item from main loop
        If MSFlexGrid1.TextMatrix(lCounter, 0) = MSFlexGrid1.TextMatrix(lCounter2 - lAccumulator, 0) Then
           QtyTotal = QtyTotal + Val(Trim$(MSFlexGrid1.TextMatrix(lCounter2 - lAccumulator, 1)))
           MSFlexGrid1.RemoveItem (lCounter2 - lAccumulator)
           MSFlexGrid1.TextMatrix(lCounter, 1) = QtyTotal
           lTemp = lTemp - 1
           lAccumulator = lAccumulator + 1
        End If

    Next lCounter2

    lAccumulator = 0
       
Next lCounter

End Sub 
الرد }}}


الردود في هذا الموضوع
RE: كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ - بواسطة Ahmed_Mansoor - 01-07-16, 10:17 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ hamada salah90 7 1,498 26-03-23, 03:05 PM
آخر رد: sanyor77
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 12 9,560 14-06-22, 04:01 PM
آخر رد: sher
  [vb6.0] مرفق مشروع يظهر بيانات MSFLEXGRID ويصدرة للوورد والاكسيل king2512010 10 8,496 11-03-22, 04:19 PM
آخر رد: Taha Okla
  [vb6.0] كيفية قراءة الباركود على مكينات الكاشيير والمخازن باستعمال خط 3OF9_NEW hamada salah90 1 1,258 28-05-21, 02:48 AM
آخر رد: ahmedabdelaliem
Lightbulb [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة أبو خالد الشكري 2 1,811 04-02-21, 02:23 AM
آخر رد: أبو خالد الشكري
  كيفية اضافة خواص لاداة UserControl ؟ gedo 1 2,206 18-09-20, 06:46 PM
آخر رد: SoftWare Haker
  كيفية ارسال معطيات الداتاكريد الى الاكسيل lkjnfg 0 1,385 25-08-20, 10:34 PM
آخر رد: lkjnfg
  تغيير كود استخدام اداة Msflexgrid الى Listview hannileo 6 3,080 30-10-19, 09:01 AM
آخر رد: Ahmed_Mansoor
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 3 4,199 13-07-19, 03:14 AM
آخر رد: gadr
  [vb6.0] كيفية اختيار حقول معينة من جدول معين ووضعها في الفلكس قريد من خلال تحكم المستخدم في ا mustafa mohamed 15 7,227 31-10-18, 12:54 AM
آخر رد: ابن دوعن

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


يقوم بقرائة الموضوع: