MSFlexGrid1

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

الاخ الكريم /

بفرض انك وضعت فلكس غريد على الفورم بأسم Fg1

بفرض ان لديك ثلاثة اعمدة فى الغريد وتريد ان يكون العامود الثالث هو مجموع العامود الاول والثاني يمكن وضع الكود فى حدث leavecell

Dim FgRow As Long

Dim FgCol As Long

FgRow = Fg1.row

FgCol = Fg1.Col

التاكد من وجود بيانات بالعامود الاول الذى رقمه صفر حيث ان الغريد يبدأ ترقيم الاعمدة بها من 0 الى عدد الاعمدة cols مع مراعاة ان textmatrix هي منهج من الفلكس غريد وترجع ما بداخل الخلية التى رقم السطر والعمود بها داخل الاقواس وايضا الاعمدة الثابتة تكون محسوبة بفرض انه لا يوجد اعمدة ثابتة

if fg1.textmatrix(fgrow,0)<> "" then

التاكد من ان العامود الثاني به بيانات

if fg1.textmatrix(fgrow,1)<> "" then

يوجد بيانات بالاعمدة

املأ العامود الثالث بحاصل جمع الخليتين مع مراعاة نوع البيانات الرقمية هل هى Long فى حالة الكميات مثلا رقم مثل 1 2 وهكذا ام هي currency للبيانات المالية مثل 3,500.45 بفرض انها للماليات اى من نوع currency

مع مراعاة ان اى خلية بها بيانات نصية اى عند التعامل مع الارقام نقوم بتحويلها الى بيانات رقمية بواسطة الدوال clng او ccur مثلا

fg1.textmatrix(fgrow,2) = ccur(fg1.textmatrix(fgrow,0)) + ccur(fg1.textmatrix(fgrow,1))

الان البيانات فى العامود الثالث هى حاصل جمع الرقمين

end if

end if

بالنسبة للسؤال الثاني

الخاصية rows للفلكس غريد ترجع عدد الصفوف بدءأ من الصف 0

مع اعتبار عدد الصفوف الثابتة.

بفرض انه يوجد لديك صف ثابت وهو الذى يحتوى على عنوانين الاعمدة

سوف نقوم بعمل حلقة تكرارية بدءأ من الصف 1

dim LngCounter as long

بقرض انك تريد اضافة عشرة للعامود الثاني

For LngCounter = 1 to fg1.rows - 1

fg1.textmatrix(lngCounter,1) = ccur(fg1.textmatrix(lngcounter,1)) + 10

next

وتقبل تحياتي

أخي الحبيب لقد كان قصدي أنهما بنفس الجدول أي جدول الأكسس وليس جدولMsFlex .

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

معلش تعبتك معايا بس أنا فعلا لست محترفا في قواعد البيانات مثلكم وأرغب في الانتهاء من هذا البرنامج

يمكن انشاء استعلامات تقوم بهذه المهمة وببساطة

لك تحياتي