[killpretty]

Проблемка.Подскажите,пожалуйста..Есть DBGrid в которой необходимо подсчитать сумму значений в одном столбце (sum).Мне необходимо, чтобы подсчет суммы по столбцу подсчитывался и выводился в Edit.

[Appolon]

Можно по разному это организовать:
Либо путем перебора всего столбца и прибавлять все значения, либо сделать запрос типа:

Код:

select sum(<имя_столбца>) from <имя_таблицы> 

, а полученный результат вставлять в Edit

[killpretty]

Сообщение от Appolon

Можно по разному это организовать:
Либо путем перебора всего столбца и прибавлять все значения, либо сделать запрос типа:

Код:

select sum(<имя_столбца>) from <имя_таблицы> 

, а полученный результат вставлять в Edit

Именно такой запрос я и составляю.Ставлю код этого запроса на свойство Edita onclick.Ничего не происходит вообще.

[Appolon]

Код покажи. Исправим.

[killpretty]

Сообщение от Appolon

Код покажи. Исправим.

Код:

procedure TForm20.Edit1Change(Sender: TObject);
begin
form20.DBGrid1.DataSource:=form20.datasource2;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select sum(Cena) from gfizio;');
Query1.Open;
end;

[Appolon]

Наверно лучше будет вот так:

Код:

procedure TForm1.Edit1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select sum(Cena) from gfizio;');
Query1.Open;
Edit1.Text:=Query1.Fields[0].AsString;
end;