Как сосчитать общую сумму, взяв данные из одной таблици и вывести сумм в др?

[Ol'ga]

Подскажите пожалуйста, как это реализовать: мне нужно подсчитать общий рейтинг каждого студента. В таблице "бланк" подсчитан рейтинг каждого студента по каждому предмету эти данные нужно взять и сложить в общую сумму, причем это значение должно отображаться в др таблице "Рейтинг".
Поиск рейтинга по студенту и предмету я написала, вот код:

var sum,i:integer;
begin
If DBLookupComboBox5.Text <> '' then

   begin
 if   DBLookupComboBox6.Text <> '' then
 DataModule1.ADOQuery4.Close;
DataModule1.ADOQuery4.SQL.Clear;
DataModule1.ADOQuery4.SQL.Text:='Select Otchet.Date, Gruppi.Gruppa, Students.NameST, Subject.Sub, Otchet.Rating ' 
+ ' From Otchet, Gruppi, Students, Subject  Where ( Otchet.IDStudent = Students.IDStudent) 
and (Otchet.IDGruppa = Gruppi.IDGruppi ) and ( Otchet.IDSubject = Subject.IDSubject ) 
and (Students.NameST="'+ DBLookupComboBox5.Text +'") and (Subject.Sub="'+ DBLookupComboBox6.Text +'")';
DataModule1.ADOQuery4.Open;
  begin
  sum:=0;
  for i:=0 to DataModule1.ADOBlRetControl.row-1 do
  sum:=sum+strtoint(DataModule1.ADOBlRetControl.cells[i,1]);
  DataModule1.ADORating.cells[i,7]:=inttostr(sum);
end;
    end;
    end;

Еще такой момент на row и cells он ругается, говорит незнает таких.

[ych_del]

Ты, часом, не в ВИВТ'е учишься?

Весь код переписывать не буду (хотя и надо - от него плакать хочется), но подсчет делается не как у тебя

sum:=0;
for i:=0 to DataModule1.ADOBlRetControl.row-1 do
sum:=sum+strtoint(DataModule1.ADOBl RetControl.cells[i,1]);

а примерно так:

sum := 0;
with DataModule1.ADOQuery4 do while not Eof do begin
   sum := sum + FieldByName('Rating').AsInteger;
   Next;
end;

А различных Row и Cell действительно нету.

[смотрит с грустью в глазах, вспоминая образование десятилетней давности]

[Stilet]

причем это значение должно отображаться в др таблице "Рейтинг".

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

[Ol'ga]

Да, в ВИВТе.