Суммирование данных таблицы.

[lobster]

Подскажите пожалуйста как правильно делать суммирование данных (типа integer, decimal) в определённом столбце таблицы.

Например, есть таблица item в ней столбец inventory, я на форму поместил компонент text box и command button.
Надо чтобы при нажатие на кнопку (command button), суммировались все данные в столбце inventory и итог выводился в компонент text box.

[trabajo]

Написать функцию типа

CLEAR(..);
sum := 0;
SETRANGE(..);
IF FIND('-') THEN REPEAT
sum += "..";
UNTIL NEXT = 0;

в триггере OnActivate() кнопки вызов этой функции.

[Control]

CALCFIELD (FieldRef)

не забыв...

[foxsoft2005]

Цитата:

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

CALCFIELD (FieldRef)

не забыв...

А если он суммирует на флоуфилд поля? .

[foxsoft2005]

Цитата:

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

Подскажите пожалуйста как правильно делать суммирование данных (типа integer, decimal) в определённом столбце таблицы.

Например, есть таблица item в ней столбец inventory, я на форму поместил компонент text box и command button.
Надо чтобы при нажатие на кнопку (command button), суммировались все данные в столбце inventory и итог выводился в компонент text box.

Если суммируемое поле НЕ флоуфилд и суммирование идет по существующему ключу (т.е. фильтруемые поля в записи, по сути, повторяют один из существующих ключей, для которого создан SIFT по нужному полю), то лучше после SETRANGE сразу использовать CALCSUMS .

[rmv]

Цитата:

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

Если суммируемое поле НЕ флоуфилд и суммирование идет по существующему ключу (т.е. фильтруемые поля в записи, по сути, повторяют один из существующих ключей, для которого создан SIFT по нужному полю), то лучше после SETRANGE сразу использовать CALCSUMS .

Лучше:
if not calcsums(....) then
.... цикл по записям.

Ибо юзер может наложить фильтры, не попадающие под ключ.

[lobster]

CALCSUMS не работает.
Пишет что "сумма не можт быть вычислена.Только обычные поля могут суммироваться."

А с CALCFIELDS вроде что-то счетает, но не выводит итог в text box.

вот что я пишу..

CLEAR(Inventory);
sum:=0;
SETRANGE(Inventory);
IF FIND('-') THEN REPEAT
xRec.CALCFIELDS(xRec.Inventory);
sum += Inventory;
UNTIL NEXT = 0;

[Corleone]

Попробуй так:

sum := 0;
item.RESET;
item.SETRANGE(Inventory);
if item.FIND('-') THEN
REPEAT
item.CALCFIELDS(Inventory);
sum += item.Inventory;
UNTIL item.NEXT =0;

[lobster]

Спасибо все сработало!!!