Цикл который пройдет например по всем фамилиям, выберет для каждой набор полей, которые еще один цикл, из результата запроса по строкам записывает в соответствующие ячейки stringgrid, причем по завершении вывода каждой фамилии пишет в заданную ячейку сумму 1 раз для всего блока.
блин....отдаленно напоминающее
Код:
procedure TForm1.drawgraph(j: integer);
var s:string;
ct,i :integer;
begin
sggraph.Cells[0,1]:='заголовок';
sggraph.Cells[0,2]:='заголовок';
sggraph.Cells[0,3]:='сумма';
query.Close;
form1.Query.SQL.Text:='select * FROM таблица WHERE T_id ='+inttostr(j);
form1.query.ExecQuery;
i:=1;
ct:=0;
while not query.eof do
begin
sggraph.cells[i,0]:=inttostr(i);
sggraph.cells[i,1]:=query.fieldbyname('чтото').asstring;
sggraph.cells[i,2]:=query.fieldbyname('чтото_еще').asstring;
ct:=ct+query.fieldbyname('деньги').asinteger;
I:=i+1;
end
sggraph.cells[тут уж надо думать в какую красивше]:=inttostr(ct);
end;
sggraph-имя грида