[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