БД, подписывать группы при экспорте

[grom333]

Есть БД access (ADO). Хранятся поля Наименование|Цена|Группа

Нужно вывести в Эксель список по такому правилу.
1. Вывод производится в 4 колонки
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
.....

2. Перед каждой группой нужно делать название данной группы.
Поясняю. Группы это: мониторы, мыши, процессоры.

Вот как подписать можно так по группам.
МОниторы:
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
...
Клавиатуры:
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
...
-----------------------------
Стандартный вывод сделал в Excel:
Наименование|Цена
Наименование|Цена
Наименование|Цена
...

Мне нужно понять саму логику выполнения задания, каким путем это сделать.

============================
1 пункт решил, просто в один запрос пустил 4 столбика:

A.First;
 for i:=0 to A.RecordCount-1 do
  begin
   Sheet.Cells[index,1]:=IntToStr(i+1);
   Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;

   Sheet.Cells[index,5]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,6]:= A.FieldByName('cena').AsString;
   Inc(index);
   A.Next;

Осталось как то решить с подписыванием, на подобие Title Группы ...

[Аватар]

В запросе наименование группы включите в запись, ORDER BY по нему и дальше по наименованию продукта. При записи в таблицу отслеживайте наименование группы и при его изменении пишите в таблицу в качестве подзагловка

[grom333]

Сообщение от Аватар

В запросе наименование группы включите в запись, ORDER BY по нему и дальше по наименованию продукта. При записи в таблицу отслеживайте наименование группы и при его изменении пишите в таблицу в качестве подзагловка

В экспорте будет вывод всей таблицы.
Я вижу решение такое (правильно или нет?). В переменную считываем группу и записываем в эксель Группу и дальше пункты пошли из этой группы, как только условие меняется т.е. название группы другое, то мы записываем ее в переменную и в таблицу. И т.д. Хотя можно и без переменной. В простом запросе например в текстовый файл записал бы это легко. Но путаница происходит со столбцами и строками.. Тем более идет по 2 столбца .

[Аватар]

А путаница то в чем? Если подзаголовок, то пишется только в первый столбец строки. Все, в эту строку ничего больше не пишем и Index увеличили. Каждую строку детализации в несколько столбцов в отдельную строку

[grom333]

А вот на счет 1 пункта я поторопился... С тем кодом

A.First;
 for i:=0 to A.RecordCount-1 do
  begin
   Sheet.Cells[index,1]:=IntToStr(i+1);
   Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;

   Sheet.Cells[index,5]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,6]:= A.FieldByName('cena').AsString;
   Inc(index);
   A.Next;

он просто повторяет одинаковые записи в первый и во второй столбик...
Если ставлю так:

A.First;
 for i:=0 to A.RecordCount-1 do
  begin
   Sheet.Cells[index,2]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,3]:= A.FieldByName('cena').AsString;
    a.Next;
   Sheet.Cells[index,5]:= A.FieldByName('naim').AsString;
   Sheet.Cells[index,6]:= A.FieldByName('cena').AsString;
   Inc(index);
   A.Next;

То идет все правильно, НО! Последняя запись повторяется много-много раз... т.к. я понимаю у нее в запасе a.recordcount-1 осталось, а записей нет больше.

[Аватар]

A.First;
while not A.Eof do begin
  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;

[evg_m]

for i:=0 to A.RecordCount-1 do
  begin
   nrow:=i div 2;
   ncol:=(i mod 2)*3;
   Sheet.Cells[nrow, ncol+1]:=IntToStr(i+1);
   Sheet.Cells[nrow,,ncol+2]:= A.FieldByName('naim').AsString;
   Sheet.Cells[nrow, ncol+3]:= A.FieldByName('cena').AsString;

  A.Next;