الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الكتابة في MSFlexGrid في عمودين فقط وحساب النسبة المئوية

بدأه الهم نت في 20 مارس 2012 · 4 رد · 620 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني اود مساعدتي في هذا الفورم

حيث أنني اريد اضافة ارقام في حقول الفلكس جريد في عمودين فقط هما (الشهر 1) و (الشهر2) ((طبعا الكتابة يدويا بالضغط على الحقل المطلوب الكتابة فيه))

ويظهر في العمود الثالث الفرق بين العمود الاول والثاني .. مثال : (الشهر الاول) - (الشهر الثاني)

من ثم يكون العمود الرابع حساب نسبة الفرق بينهم

حيث البيانات تنحفظ في قاعدة البيانات .. وتكون تحديث فقط وليس اضافة

ان شاءالله قدرت أوصل لكم مشكلتي

وشكررا مقدماً

تم ارفاق الملف ..

EditGrid1.rar

تم تعديل هذه المشاركة بواسطة الهم نت في 20 مارس 2012 في 02:24

#2

إذا كنت تريد ان تقوم بتعديل (مثلاً) كل حقول العمود الثالث ليحتوي على قيمة (العمود الاول) - قيمة (العمود الثاني) تستطيع إستخدام الكود :

With MSFlexGrid3

	For n = 1 To .Rows - 1
    	.TextMatrix(n, 3) = Val(.TextMatrix(n, 1)) - Val(.TextMatrix(n, 2))
	Next

End With

هذا الكود يضع في العمود الثالث قيم الفروق بين العمود الاول والثاني .. وتستطيع عمل نفس الشئ مع العمود الرابع لتضع فيه المعادلة التي تريد ..

1

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

يعطيك العافيه اخوي الكود مضبووووط 100%

بس حاولت اطبق نفس الكود للعمود الاخير .. بس يطلع لي مسج ارور

هل أخليه بنفس المتغير n ولا اسوي له متغير أخر؟؟

ياليت تكتب لي الكود من فضلك

#4

لم افهم اي نسبة بالضبط تريد وضعها في العمود الرابع ..

لكن على سبيل المثال إذا كنا نريد وضع مجموع العمودين في العمود الرابع فتقوم بالآتي :

فقط تقوم بإضافة سطر لكود الحلقة التكرارية يجمع العمودين , فيكون الكود كامل :

With MSFlexGrid3

    	For n = 1 To .Rows - 1
    		.TextMatrix(n, 3) = Val(.TextMatrix(n, 1)) - Val(.TextMatrix(n, 2))
    		.TextMatrix(n, 4) = Val(.TextMatrix(n, 1)) + Val(.TextMatrix(n, 2))
    	Next

End With

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#5

يزاك الله خير ياخوي

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…