[ZMihail]

Есть две таблицы (ClientDataSet). Первая, назовём её (FIOT) с первичным ключом (ID) и тектовым
полем (Fio)- где записываются фамилии. Вторая, назавём её (SUMT) c ключевым полем (FIOID), куда записываются
числовые данные из поля (ID) таблицы (FIO), второе числовое поле (SUM), где находятся суммы по кождой фамилии
из первой таблицы. Каждая фамилия имеет много строк из таблицы (SUMT). Нужно посчитать суммы по каждой
фамилии и вывести этот результат в ListBox. Запросы в этих таблицах не работают.

[M.A.D.M.A.N.]

Код:

select a.foo, bar.sum from table a, (select sum(c.field) sum from table2 c where c.user=a.ID) bar

Мне видится как-то так. На клиенте не рекомендую выполнять всякие суммирования - лишний гимор и потенциальные ошибки.

[ZMihail]

Спасибо большое но В этих таблицах запрос не работает.

[M.A.D.M.A.N.]

Выложи ER диаграмму своей базы.
Имена таблиц я привел произвольные, в качестве примера.

[ZMihail]

Код:

procedure TForm1.Button7Click(Sender: TObject);
Var summ: integer;
i : integer;
begin
SumT.Filter:= 'FIOID='+ fiot.FieldByName('ID').AsString;
SumT.Filtered:=true;
summ:=0;

while not SUMT.Eof do
begin
SUMT.Next;
while not fiot.Eof do
Begin
summ:=summ+ SUMT.FieldByName('sob').asinteger;
ListBox1.Items.Add(fiot.FieldByName('Fio').AsString+ ': '+ IntToStr(summ));
fiot.Next;
end;
end;
end;

Админ: Пользуемся тегами для оформления кода!

[M.A.D.M.A.N.]

ER диаграмму, а не исходник программы.
Подобная схема должна быть:


Или "ER диаграмма? Не, не слышали."?