[ تمت الإجابة ]ظهور تقدير الطالب في grid

وعليكم السلام

ضعي الجملة التالية في Column6.ControlSource

'( ( table.deg1 + table.deg2 + table.deg3 ) /  300 ) *100'

مع التحية

Shadowz كتب:

وعليكم السلام

ضعي الجملة التالية في Column6.ControlSource

'( ( table.deg1 + table.deg2 + table.deg3 ) /  300 ) *100'

مع التحية

تحياتي لك اخي عبد الله على الابداع كفيت ووفيت

ومرشح الاول للاجابه

تحياتي للجميع

يسلمو shadowz +1

السلام عليكم

شكرا الك اخ عبد الله ..

بارك الله فيك . وجزاك كل خير.

ان شاء الله ما ننحرم من مشاركاتك الحلوة ..

قمت بوضع الكود كما هو ولم يظهر التقدير في العمود

والمطلوب ان تظهر كلمة مقبول بالمعدلات التي ما بين الخمسين والستين وكلمة متوسط للمعدلات ما بين الستين والسبعين وكلمة جيد للمعدلات بين السبعين والثمانين ..الخ اتمنى ان تكون الفكرة واضحة ولك مني كل الشكر والتقدير ..

السلام عليكم،

شكرا لكم يا Lion وعصفور وmoonlight

moonlight معلش العتب على النظر، أنا كنت فاهم غلط

جربي الكود التالي

*Grid Init

WITH THIS

.Column6.CONTROLSOURCE='AVG'

lcSource='ICASE(NVL(AVG,0)=0,"***",;

AVG<50,"راسب",;

BETWEEN(AVG,50,59.999),"مقبول",;

BETWEEN(AVG,60,69.999),"متوسط",;

BETWEEN(AVG,70,79.999),"جيد",;

BETWEEN(AVG,80,89.999),"جيد جدا",;

AVG>89.999,"ممتاز", "***")'

.Column7.CONTROLSOURCE=lcSource

.Column6.ENABLED=.F.

.Column7.ENABLED=.F.

ENDWITH

مع التحية للجميع

السلام عليكم

شكرا لك اخي عبد الله على الرد انا تعبتك معي .

بالنسبة للكود السابق هل اضعه في حدث Inti للـ grid ام اين ؟؟

قمت برفع المثال للاطلاع عليه بعد وضع الكود فيه ومعرفة الخطأ .

ولك مني كل الشكر ...

New Folder.rar

السلام عليكم

أهل يا Moon

المتغير lcSource عبارة عن جملة واحدة متصلة، والمشكلة بالفراغات التي ظهرت بين الأسطر

ونعم، توضع الجملة في اجراء Init الخاص بالـ Grid

moon.rar

مع التحية

السلام عليكم

شكرا لك اخي العزيز .

الله يجازيك كل خير . ويبارك بيك

:clapping:

:ty:

السلام عليكم

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

نستطيع عمل اضهار التقديرات باكثر من طريقة مثل do case ,if ,scan for

مكانها في init الكرد ويفيد عرض البيانات فقط

اما اذا اردنا استخدام الكرد للادخال الجديد فنضعها في valid الحقول الخاص بدرجات الاشهر لجميعها او فقط الاخير منها والكود هو

 w=(tem1+tem2+tem3)/3
replace avg WITH w
**************
DO CASE 
CASE avg<50
a='ÑÇÓÈ'
CASE BETWEEN(avg , 50, 59)
a='ãÞÈæá'
CASE BETWEEN(avg , 60, 69)
a='ãÊæÓØ'
CASE BETWEEN(avg , 70, 79)
a='ÌíÏ'
CASE BETWEEN(avg , 80, 100)
a='ÇãÊíÇÒ'
ENDCASE 
*****************
*IF  BETWEEN(avg , 50, 59)
*a='ãÞÈæá'
*ENDIF 
*IF  BETWEEN(avg , 60, 69)
*a='ãÊæÓØ'
*ENDIF 
*IF  BETWEEN(avg , 70, 79)
*a='ÌíÏ'
*ENDIF 
*IF  BETWEEN(avg , 80, 89)
*a='ÌíÏ ÌÏÇ'
*ENDIF 
*****************
replace cros WITH a
thisform.grdLion.Refresh
thisform.Refresh

والطريقيتن مبينة ولكن if ملغاة قم بازاله النجوم من امام الطريقة الثانية واجعلها امام الطريقة الاولى do case

تحياتي واتمنى وصول الفكرة

ملاحظة هنالك لغة غير معرفة في الكود مثل راسب او مقبول وهي نتيجة a والمرفق موجود للتاكيد

تقديرات.zip

الى الاخ اسد العراق

يبدو ان الفوكس برو لا يدعم اللغة العربية في عملية النسخ واللصق الى بيئة ثانية مثل التيكست و html

ولهذا ضهرت الكلمات العربية غير مفهومة عندي

مع الشكر لصاحب الموضوع

ababil كتب:

الى الاخ اسد العراق

يبدو ان الفوكس برو لا يدعم اللغة العربية في عملية النسخ واللصق الى بيئة ثانية مثل التيكست و html

ولهذا ضهرت الكلمات العربية غير مفهومة عندي

مع الشكر لصاحب الموضوع

اخي العزيز شكرا لك

انا الفوكس يدعم اللغة ولكن في بعض الاحيان لايتوافق مع اللغة المختارة للموقع

اي انا اختار لغة معينة للكتابه ويصادف الموقع مثلا لايدعمها

واحب اضيف ان الفوكس برو هو الساحر في كل شي ومن اقوى برامج القواعد والبرمجة

تحياتي لك ويوجد المثال في المرفق اذا واجهتك مشاكل اللغة في النسخ

السلام عليكم

اخواني shadowz & lion iraq

تعجز الكلمات عن شكركم عن كل ما قدمتوه من مساعدة لي ولكل من يستفيد من مشاركاتكم

فأنا بجد استفدت كثير وحاسة نفسي في تقدم مستمر بدون ان اشترك باي دورة او احضر درس للفيجوال فوكس برو

والمصدر الوحيد لي هو هذا المنتدى الرائع

جعله الله مصدر علم لنا ومصدر حسنات جارية لكم ولكل من يقدم يد المساعدة من الاخوة في هذا المنتدى..

ان شاء الله تعالى ..

لكم مني كل التحية والتقدير

الحمد لله على نعمة ُ واتمنى انك وجدت ماينفعك معنا وسوف ا قدم مااستطعت والله الموفق

تحياتي للجميع

السلام عليكم

مشكوووووورا .

والله يدفع عنكم الشر لما تقدموه من فائدة للجميع

:clapping:

الاخت مون

السلام عليكم

شكرا على مشاركتك فى هذا المنتدى

بالنسبة لاظهار التقدير جربى هذا التعديل فى ملفك المرفق حيث وضعت ادراج التقديرات فى column 5

اتمنى ان يكون هذا المطلوب

ابوعبدالرحمن

New Folder.rar

السلام عليكم

شكرا اخي ابو عبد الرحمن

بارك الله فيك .

كنت رايدة طريقة وحدة اصبح عندي عدة طرق . بفضل الله ثم بفضلكم .

شكرا جزيلا ...

الاخت مون لايت

جزاك الله خيرا على هذه المشاركات واتمنى الاستمرار