как-то так:
1) запрос сортируешь по группам
2)
Код:
A.First;
//Делаем первую группу
GROUP:=A.FieldByName('group').AsString;
Sheet.Cells[index,1]:=GROUP;
while not A.Eof do begin
if GROUP<>A.FieldByName('group').AsString
THEN
begin
Sheet.Cells[index,1]:=A.FieldByName('group').AsString;
Inc(index);
GROUP:=A.FieldByName('group').AsString ;
end;
Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;
a.Next;
if a.Eof then Break;
Sheet.Cells[index,5]:= A.FieldByName('naim').AsString;
Sheet.Cells[index,6]:= A.FieldByName('cena').AsString;
Inc(index);
A.Next;
end;
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.
|