+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ (/showthread.php?tid=16282)
كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ - gedo - 27-06-16
السلام عليكم ورحمة الله وبركاته
كيف حالكم ياشباب بارك الله فيكم
انا لدى بيانات فى Msflexgrid بالشكل التالى
الاسم - الكمية
هارد 1
رامة 1
رامة 1
رامة 2
بوردة 2
بوردة 3
ماوس 1
ماوس 1
ماوس 3
كيبورد 1
بروسيسور 1
اريد عند الضغط على زر جمع الكميات ان يقوم بحساب وجمع الكمية بالشكل التالى
الاسم - الكمية
هارد 1
رامة 4
بوردة 5
ماوس 5
كيبورد 1
بروسيسور 1
اى انه يقوم بوضع سطر واحد فقط من كل اسم ويقوم بحذف الباقى مع جمع الكمية
وشكرا لكم وبارك الله فيكم
RE: كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ - gedo - 30-06-16
السلام عليكم ورحمة الله وبركاته
الحمد لله والصلاة والسلام على رسول الله صلى الله علية وسلم
بعد البحث الحمد لله وجدت كود يقوم بحذف السطور المكررة
اضع الكود ليستفاد الجميع
كود :
Dim lCounter As Long
Dim lCounter2 As Long
Dim lTemp As Long
Dim lAccumulator As Long
lTemp = MSFlexGrid1.Rows - 1
lAccumulator = 0
For lCounter = 1 To lTemp
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
MSFlexGrid1.RemoveItem (lCounter2 - lAccumulator)
lTemp = lTemp - 1
lAccumulator = lAccumulator + 1
End If
Next lCounter2
lAccumulator = 0
Next lCounterالان ينقصنى جمع الكميات اذا توصلت اليها سوف اضعها حتى يستفاد الجميع
شكرا لكم وبارك الله فيكم جميعا
RE: كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ - Ahmed_Mansoor - 01-07-16
وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم , هذا كود الزر كامل والذي يقوم بحذف التكرار والجمع :
PHP كود :
Private Sub Command1_Click()
On Error Resume Next: Err.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(lCounter, 1)))
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 ؟ - gedo - 01-07-16
(01-07-16, 10:17 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم , هذا كود الزر كامل والذي يقوم بحذف التكرار والجمع :
PHP كود :
Private Sub Command1_Click()
On Error Resume Next: Err.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(lCounter, 1)))
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 ؟ - mhqom2020 - 19-03-21
يا جماعة الخير لو اردنا فقط اعطاء لون للاسطر المكرره دون حدف هل هذا ممكن وجزاكم الله خير