Есть БД access (ADO). Хранятся поля Наименование|Цена|Группа
Нужно вывести в Эксель список по такому правилу.
1. Вывод производится в 4 колонки
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
.....
2. Перед каждой группой нужно делать название данной группы.
Поясняю. Группы это: мониторы, мыши, процессоры.
Вот как подписать можно так по группам.
МОниторы:
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
...
Клавиатуры:
Наименование|Цена Наименование|Цена
Наименование|Цена Наименование|Цена
...
-----------------------------
Стандартный вывод сделал в Excel:
Наименование|Цена
Наименование|Цена
Наименование|Цена
...
Код:
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;
Inc(index);
A.Next;
end;
===============================
Решение 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;
Теперь остался второй пункт...