16-03-2009, 07:37 PM
يمكنك ذلك باستعمال استعلام SQL على هذا الرابط هنــا
أو :
بالتوقيف أخي
أو :
كود :
procedure TForm1.Button1Click(Sender: TObject);
var Majmou3: Currency;
RecordPlace: TBookmark ;
begin
(* Majmoo3 *)
RecordPlace := table1.GetBookmark;
Majmou3:=0;
table1.Active:=true;
table1.First;
while not table1.Eof Do
begin
Majmou3:= Majmou3+table1.FieldByName('Qut').AsCurrency;
table1.Next;
end;
edit1.text:=CurrToStr(Majmou3);
end;بالتوقيف أخي