[amer2000]

ارجو المساعدة من  في تعديل المثال زر الحفظ وز البحث تم توضيح المثال في المرفق

[عمور2016]

شكر امير وجزاك الله الف خير

[عمور2016]

ارجو من الاخوة الزملاء سرعة الرد

كود وسؤال اخر---- في حال جمع الفليكس للعمود( اذا كان بنسبة مئوية% ).كيف يكون ذلك%   كما هو موضح في الصورة
ارجو التعديل في الكود او ايجاد حل لجمع الاعدد بالنسب المئوية10%+12%+30%...........وهكذا
Private Function sum(xcol)
Dim i As Integer
Dim sum1 As Double
sum1 = 0
For i = 1 To MSHFlexGrid1.Rows - 1
sum1 = sum1 + (IIf(MSHFlexGrid1.TextMatrix(i, xcol) = "", 0, MSHFlexGrid1.TextMatrix(i, xcol)))
Next
sum = sum1
End Function

[awidan76]

هلا اخوتي الغاليين 
وكيف حالك اخي الغالي امير الزبيدي 
اعتذر على عدم تواصلي بسبب انشاغالي في هذه الايام 
ان شاء الله لنا لقاءات كثيرة في هذا المنتدى الجميل 
احبكم في الله