База состоит из двух таблиц (ClientDataSet). Работают они на Midas.DLL.
Это самостоятельные таблицы. И у них нет общей БД.
-----------------------------------------------------------------------
Где-то так, но считает сумму только первой записи. В Чём ошибка? Не соображу.
procedure TForm1.Button7Click(Sender: TObject);
var summa, id: integer;
begin
listBox1.Clear;
FIOT.First;
while not FIOT.Eof do
begin
id:=FIOT.FieldByName('ID').AsInteger;
summa:=0;
glavt.next;
while not glavt.Eof do
begin
if glavt.FieldByName('FIOID').AsInteger=ID then
summa:=summa + glavt.FieldByName('SOB').AsInteger;
Glavt.Next;
end;
listBox1.Items.Add(FIOT.FieldByName('FIO').AsStrin g + ':'
+ IntToStr(summa));
FIOT.Next;
end;
end;
end.
|