کار با tabel ها

[aks2download]

من یک جدول دارم که یک ستون برای مبالغ (m)دراد من برای محاسبه جمع این مبالغ کد زیر را می نویسم اما هیچ تغییری را مشاهده نمی کنم.


procedure TForm6.Label2Click(Sender: TObject);
var
s:string;
begin
dm.Query1.Active:=false;
s:='select sum(m) from io.db';
dm.Query1.SQL.Clear;
dm.Query1.SQL.Add(s);
dm.Query1.Active:=true;
end;



(من از DBGrid استفاده میکنم) کسی میتونه منو راهنمایی کنه؟؟؟؟

[bmanfy]

With Da.Query1 do
Begin
Close ;
Sql.Clear ;
Sql.Text := 'Select Sum(m) as FieldName From io ' ;
Open ;
end


قاعدتا باید جواب بده .
احتمالا به خاطر اینه که فیلدت نام ندادی .