جمع تعدادی فیلد مشخص شده

[nobody.gu3st]

سلام
تو یه قسمت برنامه میخوام جمع فیلدهای مشخصی از یک محصول رو در بیارم ولی جمع کل فیلدها رو میده
از این دستور بهره میبرم :

anbardata1.ADOTable1.Filter := '[نام کالا]=''' + DBLookupComboBox1.Text + '''';
// anbardata1.ADOTable1.Filter := '[تعداد]=''' + DBLookupComboBox1.Text + '''';
anbardata1.ADOTable1.Filtered := true;

anbardata1.ADOQuery1.SQL.Clear;

anbardata1.ADOQuery1.SQL.Text:='Select Sum(تعداد) as jamkala from anbar1 ';
anbardata1.ADOQuery1.Open;

ولی میخوام فقط نام کالایی که توی dblookup میارم رو بنویسه

عکسی از محیط برنامه هم به تاپیک ضمیمه میکنم جهت درک بهتر

پیشاپیش از کمکتون ممنونم

[سعید صابری]

شرطی که برای adotable گذاشتی برای adoquery هم بزار


ADOQuery1.SQL.Add('Select Sum(تعداد) as jamkala from anbar1');
ADOQuery1.SQL.Add('where '[نام کالا]=''' + DBLookupComboBox1.Text

[ahmadi613]

باسلام
از كد زيربراي جمع هر فيلد عددي استفاده كنيد موفق باشيد

var
i:integer;
begin
i:=0;
adotable1.Active:=true;
adotable1.First;
while not table1.Eof do
begin
i:=i+table1.fieldbyname('ghimat').AsInteger;
adotable1.Next;
edit1.Text:=inttostr(i);

[سعید صابری]

استفاده ار حلقه باعث کندی برنامع میشه