[gedo]

(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 


اخى احمد منصور بارك الله فيك وجزاك الله كل خير

ماشاء الله تبارك الله اسال الله العلى العظيم ان يرزقك العلم الكثير وان يدخلك الجنة اللهم امين