Dark_Omen
Сообщений: 12
Оценки: 0
Присоединился: 2005-11-21 13:41:14
|
Народ, может кто сталкивался с таким - нужно вывести данные из DBGrid, кроме тех колонок которые скрыты, в Ексель.
Использую код (но он выводит все значения):
index:=11 //номер ячейки с которой начнется вывод
DataModule2._Zapros_SQL_.First;
for i:=0 to DataModule2._Zapros_SQL_.RecordCount-1 do
begin
for j:=0 to 11 //у меня 11 полей в БД
begin
Sheet.Cells[index,j]:=DataModule2._Zapros_SQL_.Fields.Fields[j-1].AsString; //считывание данных из БД
XLApp.Sheets[1].Cells[index,j].WrapText:=true;
XLApp.Sheets[1].cells[index,j].Borders.Weight:=1;
XLApp.Sheets[1].Cells[index,j].HorizontalAlignment := xlLeft;
XLApp.Sheets[1].Cells[index,j].VerticalAlignment := xlCenter;
{эти четыре строки делают границы и выравнивание}
inc(index);
DataModule2._Zapros_SQL_.Next;
end;
end;
|
Excel и DBGrid в Delphi 6 (вывод отчета) - 
