Поиск:

Ответ в темуСоздание новой темы Создание опроса
> DBGrid в Word 
V
    Опции темы
weg
  Дата 22.3.2010, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 22.10.2008

Репутация: нет
Всего: нет
Всем привет у меня такая проблема не могу правильно вывести из dbgrid в word подскажите что не так
Код

procedure TfrmMain.GoToWord(Sender: TObject);
var
W, Table: Variant;
i, j: Integer;
begin
W := CreateOleObject('Word.Application');
W.Documents.Add;
W.ActiveDocument.Tables.Add(W.ActiveDocument.Range ,
dbgrMain.DataSource.DataSet.RecordCount, dbgrMain.DataSource.DataSet.FieldCount);
Table := W.ActiveDocument.Tables.Item(1);
Table.Style := 'Сетка таблицы';
dbgrMain.DataSource.DataSet.First;
for i := 0 to dbgrMain.DataSource.DataSet.RecordCount-1 do
begin
for j := 0 to dbgrMain.DataSource.DataSet.FieldCount - 1 do
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrMain.Da taSource.DataSet.Fields[j].AsString);
dbgrMain.DataSource.DataSet.Next;
end;
W.Visible := True;
end;

user posted image
PM MAIL   Вверх
Frees
Дата 22.3.2010, 17:58 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Код

procedure TfrmMain.GoToWord(Sender: TObject);
var
W, Table: Variant;
i, j: Integer;
begin
W := CreateOleObject('Word.Application');
W.Documents.Add;
W.ActiveDocument.Tables.Add(W.ActiveDocument.Range ,
dbgrMain.DataSource.DataSet.RecordCount, dbgrMain.DataSource.DataSet.FieldCount);
Table := W.ActiveDocument.Tables.Item(1);
Table.Style := 'Сетка таблицы';
dbgrMain.DataSource.DataSet.First;
for i := 0 to dbgrMain.DataSource.DataSet.RecordCount-1 do
begin
for j := 0 to dbgrMain.Columns.Count - 1 do //перебирать колонки грида а не дата сета
Table.Cell(i+1,j+1).Range.InsertBefore(dbgrMain.Columns[j].Field.AsString);
dbgrMain.DataSource.DataSet.Next;
end;
W.Visible := True;
end;


Это сообщение отредактировал(а) Frees - 22.3.2010, 17:58


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
weg
Дата 22.3.2010, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 22.10.2008

Репутация: нет
Всего: нет
Спасибо огромное smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1129 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.