[Gene72]

Помогите с прграммой.

Есть таблица accesse вот такой структуры:

Дата Всего Продано Осталось
01.01.2009 10 4 6
01.01.2009 12 3 9
02.02.2009 5 4 1
02.02.2009 4 3 1
12.02.2009 45 33 12
12.02.2009 60 32 28
12.02.2009 21 20 1

Как подсчитать продано за одну дату и за месяц в ADOTable?

Я делаю вот так:

Код:

procedure TForm1.FormShow(Sender: TObject);
var
 Summ:Integer;
// bm1:TBookmarkStr;
begin
 Summ:=0;
 DataModule2.DataSource1.DataSet:=nil;
// bm1:=DataModule2.ADOTable1.Bookmark;

 DataModule2.ADOTable1.First;
 while DataModule2.ADOTable1.Eof<>true do
  begin
   Summ:=Summ+DataModule2.ADOTable1DSDesigner2.AsInteger;
   DataModule2.ADOTable1.Next;
  end;
// DataModule2.ADOTable1.Bookmark:=bm1;
 DataModule2.DataSource1.DataSet:=DataModule2.ADOTable1;

 Label1.Caption := IntToStr(Summ);
  end;

lmikle: Ну все, следующий, кто не будет использовать теги, получит бан на неделю! Если вам все пофиг, так подумайте о других, ведь неудобно читать!

У меня выводит общее значение столбца. А нужно, чтобы при выделении одной даты, подчитывался результат этой даты. неважно сколько сторк с этой датой, одна или десять. Вобщем нужно суммировать столбец по дате.