السلام عليكم ورحمة الله تعالى وبركاته
اريد من حضرتكم المساعدة في هذا الأمر
1-teste.rarاريد جمع كل عمود في الديبقريد أي اريد مجموع الحقل MT1
يعني الحقل TMT1 = مجموع الحقل MT1
والحقل TMT2 = مجموع الحقل MT2
علما أن العمود MT1 به سطور فارغة حسب ما هو في الملف المرفق
ونفس الشيء بالنسبة للعمود MT2
يعني هناك دالة NULL
ارجو منكم ان تنظرو للمرفقات وتعدلوا ما بها واعادتها لي
ومشكورين
تم تعديل هذه المشاركة بواسطة medreg في 25 ديسمبر 2007 في 01:02
اخي العزيز انت تريد ان تغير قيمه السجل المحدد بهده الطريقة
ضع edit1 2
ثم
procedure TForm1.Button1Click(Sender: TObject);
var i :integer;
sumTM1,sumTM2 : real;
begin
{table1.Edit;
table1.First;
table1.FieldByName('TMT1').AsInteger := table1.FieldByName('MT1').AsInteger;
table1.Next;
table1.Post; }
for i :=1 to table1.RecordCount do
begin
table1.RecNo:=i;
sumTM1:= sumTM1 + Table1MT1.Value;
sumTM2:= sumTM2 + Table1MT2.Value;
end;
edit2.Text:=FormatFloat('###,##0.00',sumTM2);
edit1.Text:=FormatFloat('###,##0.00',sumTM1);
end;B.M.AbdelAziZ كتب:زكيري عبد العالي هناك خطأ صغيريجب ان تضيف
sumTM1 := 0; sumTM2 := 0;
شكرًا جزيلاً وجزاكم الله عنا كل خير
هذا الموضوع مغلق.