كيف يمكن جمع حقل مطبق عليه فلترة

السلام عليكم

تستطيع ان تجمع هذا الحقل باستعمال حلقة

DM.Query1.First;
while not DM.Query1.eof do
begin
Total:=Query1.FieldByName('Val').Value+Total;
DM.Query1.Next;
end;

دون ان تنسى التصريح بالمتغييرين Total و Val سيحمل القيمة النهائية المتغيير Total

بالتوفيق

بارك الله فيك أخي علي وتقبل الله صيامك

أريد أن أضع الكود الذي أعطيتني مع هذا الكود فكيف

begin

if Edit1.TEXT<>''then

begin

DM.Table1.Active:=FALSE;

DM.Table1.Active:=TRUE;

DM.Query1.ACTIVE:=true;

DM.Query1.Filtered:=true;

DM.Query1.Filter:= 'CodB='+''''+Edit1.TEXT+''+'''';

end

else

dm.Table1.Filtered:=false;

end;

طبعا اخي الكريم ستضع الكود بعد الاستعلام مباشرة

begin
if Edit1.TEXT<>''then
begin
DM.Table1.Active:=FALSE;
DM.Table1.Active:=TRUE;
DM.Query1.ACTIVE:=true;
DM.Query1.Filter:= 'CodB='+''''+Edit1.TEXT+''+'''';
DM.Query1.Filtered:=true;
DM.Query1.First;
while not DM.Query1.eof do
begin
Total:=Query1.FieldByName('Val').Value+Total;
DM.Query1.Next;
end;
end
else
dm.Table1.Filtered:=false;

end;

بالتوفيق

الله يجعلها في ميزان حسناتك أخي علي.ع الدالة تعمل 100/100