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

يا جماعه عندي سوال بسيط عندي 2 كولم -- كولم أ -- كولم ب--- وكلوم ج انا عايزة أ يجمع ويطرح ويضرب ب -- ويجيب الناتج في ج

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

ممكن الافادة احبائي

:Item3 := :Item1 + :Item2
:Item3 := :Item1 - :Item2
:Item3 := :Item1 * :Item2
:Item3 := :Item1 / :Item2

وإذا كنت ترغب في تنفيذ الإجراء أثناء التنقل بين السجلات يمكن ذلك من خلال الذهاب الي حدث Post Change للعنصر المناسب

شكراً

مرسي علي اهتمامك في الريبورت والفورمس
مرسي جدا ليك اخي العزيز

بس ان بعمل علي الكولم الي حيظهر في النتيجه Post Change

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

وبدون مضاية ازاي اجمع صف كامل ويظهر نتيجته في كولم

مرسي جدا

هل من حل اخونواني


سوال بسيط مش قوي خالص

شوف اخ دانو
ممكن دة الحل اللى تقصدة
تعمل في الفورم DISPLAY ITEM وتعمل الخصائص بتاعات التكيست دة CALCULATION MODE تخليها FORMULA
تظهر تحتها على طول FORMULA تكتب في TXT:+:TXT2
وفي تحتها كمان هتلاقي SUMMER FUNCTION تختار SUM للجمع
وانشاء الله هتظبط معاك
حسين

وممكن كمان تعمل بالكود التيكست اللى عايز تظهر فيها الناتج KEY-NEXT-ITEM
TXT=TXT1+TXT2+TXT3
ومكن ترسلي الفورم واجربهالك

تمام يا شباب
بس ينقضني كود التجميع

بمعني انا عندي كولم فيه نتائج

100
100
22


وعندي كولم اخر عايزة اطلع فيه نتائج الجمع مثل 222

اعمل اي

والله يا أخي أنا لا أعلم لماذا تحتاج الكود مع أن لديك الطرق السهلة !!!!

علي العموم إذا كان لديك حقل يحتوي لكل سجل علي قيمة رقمية معينة وترغب في جمعها إليك التالي :

Declare
 ID_Sum   Number;
Begin
 ID_Sum := 0;
 While :System.Last_Record = 'FALSE'
 Loop
 ID_Sum := ID_Sum + :Column_Name;
 Next_Record;
 End Loop;

 Message(ID_Sum);
 Message(ID_Sum);
End;

لكن بالطبع يجب عليك إدراجة في الحدث المناسب مثل Post-Change كما ذكرت لك أو When-Item-Valedate


شكراً