[gedo]

السلام عليكم ورحمة الله وبركاته

الحمد لله والصلاة والسلام على رسول الله صلى الله علية وسلم

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

اضع الكود ليستفاد الجميع

كود :

   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

الان ينقصنى جمع الكميات اذا توصلت اليها سوف اضعها حتى يستفاد الجميع

شكرا لكم وبارك الله فيكم جميعا