07-08-2010, 01:09 PM
1- بالنسبة للطريقة المعطاة من طرف الأستاذ kachwahed
أي أضف في كودك الأول دون إستعمال الطريقة الثانية
يصبح الكود كالتالي
2- بالنسبة للطريقة 1 Calculated
فقط تأكد من الخاصية AutoCalcFields بقيمة true
الحساب يقام به أوتوماتيكيا بعد الفتح / التعديل / الإضافة
لا تنسى فقط الكود
بالتوفيق
أي أضف في كودك الأول دون إستعمال الطريقة الثانية
يصبح الكود كالتالي
كود :
table1.DisableControls;
table1.first;
while not table1.eof do begin
table1.edit;
table1MT_TOT.Value:=table1MT_01.value * table2Tx.value/100;
table1.post;
table1.next;
end;
table1.EnableControls;فقط تأكد من الخاصية AutoCalcFields بقيمة true
الحساب يقام به أوتوماتيكيا بعد الفتح / التعديل / الإضافة
لا تنسى فقط الكود
كود :
procedure TDataM.Table1CalcFields(DataSet: TDataSet);
begin
table1calcField.Value:=table1MT_01.value * table2Tx.value/100;
end;