Сумма не уникального поля.

[Дмитрий mause]

Добрый день. Прошу прощения за столь глупый вопрос, но я немного в замешательстве и нуждаюсь в ваших советах.

Задача: есть два .dbf -файла, в одной базе есть поле "nlch" - лицевой счёт, поле "D11" - платёж и поле "N11" - корректировка, и другие поля. В другой dbf поле "nlch"- лицевой счёт, поле "summa" - расчитывается она так, "D11 -N11", проблема заключается в том, что поле "nlch " не уникальное, в нём могут содержаться две и более одинаковых записей, т.е. по одному лицевому, могут быть несколько оплат. Как можно получить общую сумму по одному "nlch".

я делаю так:

sumpl:=0;
VSETable.First;
While not VSETable.Eof do
begin
Application.ProcessMessages;
sumpl:=VSETable.FieldByname('D11'). AsFloat-VSETable.FieldByname('PEN11').AsFlo at; //сумма платежа
VSETable.Next;
end;

Но он суммирует только первое найденное поле. Будте добры посоветуйте как лучше реализовать код суммы по всем найденным полям !!!

[Serge_Bliznykov]

неверный подход. смотрите в строну SQL запросов
вида

select NLCH, sum(summa) as all_sum from ВашаТаблица group by NLCH

это примерно направление поиска. в идеале желательно связать обе таблицы в одном запросе...

[Дмитрий mause]

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

неверный подход. смотрите в строну SQL запросов
вида

select NLCH, sum(summa) as all_sum from ВашаТаблица group by NLCH

это примерно направление поиска. в идеале желательно связать обе таблицы в одном запросе...

У меня небольшие проблемы с запросами SQL, будьте любезны немного поподробнее, если это вас не затруднит.

[Аватар]

С Table запросом не сделать, а без запроса:

sumpl:=sumpl+VSETable.FieldByname('D11').AsFloat-VSETable.FieldByname('PEN11').AsFloat;

P.S. А по поводу запросов Serge_Bliznykov очень правильно сказал, ими пользоваться более эффективно. Тот же Table, например, я вообще не использую в проектах. Примеров использования SQL на форуме полно, ищите

[Дмитрий mause]

Сообщение от Аватар

С Table запросом не сделать, а без запроса:

sumpl:=sumpl+VSETable.FieldByname('D11').AsFloat-VSETable.FieldByname('PEN11').AsFloat;

Спасибо большое Аватар, это помогло справиться с проблемой. Serge_Bliznykov и вам спасибо за то, что откликнулись.