14-02-18, 12:58 PM
16-02-18, 02:58 PM
شكر امير وجزاك الله الف خير
16-02-18, 05:25 PM
(14-02-18, 12:58 PM)amer2000 كتب : [ -> ]ارجو المساعدة من في تعديل المثال زر الحفظ وز البحث تم توضيح المثال في المرفق
السلام عليكم و رحمة الله
بالنسبة للسؤال الأول
اتمنى ان يكون هذا هو المطلوب :
[attachment=17170]
بالنسبة للسؤال الثاني
يرجى توضيح السؤال
17-02-18, 12:13 AM
ارجو من الاخوة الزملاء سرعة الرد
كود وسؤال اخر---- في حال جمع الفليكس للعمود( اذا كان بنسبة مئوية% ).كيف يكون ذلك% كما هو موضح في الصورة
ارجو التعديل في الكود او ايجاد حل لجمع الاعدد بالنسب المئوية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
كود وسؤال اخر---- في حال جمع الفليكس للعمود( اذا كان بنسبة مئوية% ).كيف يكون ذلك% كما هو موضح في الصورة
ارجو التعديل في الكود او ايجاد حل لجمع الاعدد بالنسب المئوية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
17-02-18, 08:07 AM
السلام عليكم و رحمة الله
هذا تعديل الكود :
هذا تعديل الكود :
PHP كود :
Private Function sum(xcol)
Dim i As Integer
Dim sum1 As Double
sum1 = 0
For i = 1 To (Val(MSHFlexGrid1.Rows - 1))
sum1 = sum1 + Val((IIf(MSHFlexGrid1.TextMatrix(i, xcol) = "", 0, MSHFlexGrid1.TextMatrix(i, xcol))))
Next
sum = sum1 & " % "
End Function
23-02-18, 11:44 PM
هلا اخوتي الغاليين
وكيف حالك اخي الغالي امير الزبيدي
اعتذر على عدم تواصلي بسبب انشاغالي في هذه الايام
ان شاء الله لنا لقاءات كثيرة في هذا المنتدى الجميل
احبكم في الله
وكيف حالك اخي الغالي امير الزبيدي
اعتذر على عدم تواصلي بسبب انشاغالي في هذه الايام
ان شاء الله لنا لقاءات كثيرة في هذا المنتدى الجميل
احبكم في الله