Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экспорт данных из DBGrid в word 
:(
    Опции темы
Аринка
  Дата 27.5.2009, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Привет всем, кто остался неравнодушным!
У меня проблема 
Я заполняю dbgrid и мне нужно чтобы данные из него экспортировались в шаблон wordа,в соответствующие закладки, первую строку первого столбца вставить получилось(она выделена жирным цветом) а как вторую строку первого столбца вставить не знаю!
Пожалуйста помогите!!!!!!!!!!!

Кусочек кода:
pWord.Documents.Add('',False,0);
pWord.Documents.Add(xFileName, False, 0);

pWord.ActiveDocument.Bookmarks.Item('Закладка1').Range.Text :=Form1.DBGrid5.Fields[1].AsString;

pWord.Selection.WholeStory;
pWord.Selection.Copy;
pWord.ActiveDocument.Close(SaveChanges:=wdDoNotSaveChanges);
pWord.Selection.EndKey(Unit:=wdStory);
pWord.Selection.Paste;

pWord.Visible:=True;
PM MAIL   Вверх
Данкинг
Дата 27.5.2009, 18:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



Из DBGrid'а данные экспортировать нельзя, говорю это уже в n-й раз. smile Экспортировать можно из набора данных, который к этому гриду подключён.

Цитата(Аринка @  27.5.2009,  18:35 Найти цитируемый пост)
а как вторую строку первого столбца вставить не знаю!

Встать на эту вторую строку в датасете. Т.е., в общем случае,
Код

DataSet.Recno:=2;

А вообще, подобное (т.е. экспорт всей таблицы) делается в цикле.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Akella
Дата 27.5.2009, 22:46 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329



Цитата(Аринка @  27.5.2009,  17:35 Найти цитируемый пост)
Кусочек кода:


рекомендую к прочтению smile 
http://forum.vingrad.ru/forum/topic-126445.html
http://forum.vingrad.ru/forum/topic-237714.html

Добавлено через 9 минут и 4 секунды
Цитата(Аринка @  27.5.2009,  17:35 Найти цитируемый пост)
а как вторую строку первого столбца вставить не знаю!

Ты циклы изучала? Нет, нет... те циклы, которые в программировании.

Нужно сделать цикл по набору данных. 
Пример.
Код

Form1.DBGrid5.DataSource.Dataset.first;//переходим на первую запись
while not Form1.DBGrid5.DataSource.Dataset.eof do//пока не будет конец файла..... цикл будет обрабатывать поочерёдно каждую запись
  begin
//pWord.ActiveDocument.Bookmarks.Item('Закладка1').Range.Text - что нужно здесь подставлять - я не знаю.....
//поэтому копирую как есть


//присваиваем значение нужного поля.
     pWord.ActiveDocument.Bookmarks.Item('Закладка1').Range.Text := Form1.DBGrid5.DataSource.Dataset.FieldByName('Имя поля').AsString;

     Form1.DBGrid5.DataSource.Dataset.next;//следующая запись
  enf;


Настрой себя на то, что DBGrid предназначен для отображения данных, а оперировать нужно с набором данных. Под набором данных я имею ввиду компоненту: TTable, TQuery, TIBDataSet, TAdoCommand, TAdoQuery, как многие говорят - датасет.

Добавлено через 11 минут и 17 секунд
Цитата(Аринка @  27.5.2009,  17:35 Найти цитируемый пост)
Пожалуйста помогите!!!!!!!!!!!

и не нужно кричать  smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

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

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


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

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




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


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

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