Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi: экспорт из DBGrid в MS Excel - ошибка 
V
    Опции темы
Solominka
Дата 21.4.2011, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

DBGrid1 сделай MultiSelect  в настройках Options


Сделала.

Цитата

эту строчку верни на место


Если возвращаю - опять ошибку пишет...
PM MAIL   Вверх
~FoX~
Дата 21.4.2011, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68
Скучно с вами ночью сидеть  smile 
Цитата(Solominka @  21.4.2011,  23:14 Найти цитируемый пост)
сли возвращаю - опять ошибку пишет... 

Какую ошибку?


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Solominka
Дата 21.4.2011, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

вообще-то это и был вопрос темы


Ну да, но вообще-то сначала я потом на другое отвлеклась...

Всё, работает! Были кое какие проблемы из-за невнимательности... Всем большое спасибо за помощь!  smile 
PM MAIL   Вверх
Novichek27
Дата 21.4.2011, 22:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Если возвращаю - опять ошибку пишет... 


текст ошибки какой?
напиши здесь
PM   Вверх
Solominka
Дата 21.4.2011, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Хммм... А не могли бы вы ещё одну вещь подсказать...

Ну чтобы данные из строки грида как бы в столбик отображались:

"Наименование" - значение
"Адрес" - значение

и т.д. а не в строчку, как сейчас... А то я что-то запуталась с этими индексами... Я так понимаю нужно тут что-то исправить, или нет?

Код

 Sheet.Cells[1,1]:=IntToStr(Form1.DBGrid1.SelectedRows.Count);
 Sheet.Cells[1,2]:='Заголовок';
 Sheet.Cells[2,1]:='Имя 1-го столбца';
 Sheet.Cells[2,2]:='Имя 2-го столбца';
PM MAIL   Вверх
Novichek27
Дата 21.4.2011, 22:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
Sheet.Cells[2,1]:='Имя 1-го столбца';
Sheet.Cells[2,2]:='Имя 2-го столбца';

Sheet.Cells[2,1] 2-номер строки, 1-номер столбца    

все...
PM   Вверх
Solominka
Дата 21.4.2011, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

текст ошибки какой?
напиши здесь 


Да уже никакой. Просто забыла переименовать dFrm на Form1 smile вот на него и ругался.

Добавлено через 5 минут и 1 секунду
Цитата

Sheet.Cells[2,1]:='Имя 1-го столбца';
Sheet.Cells[2,2]:='Имя 2-го столбца';

Sheet.Cells[2,1] 2-номер строки, 1-номер столбца    


Да, но теперь значения полей отображаются не корректно. Мне надо чтобы они располагались рядом (напротив Имени столбца), а оно сейчас располагается ПОД ним... В общем вопрос в том, наверное, как регулировать расположение значений строки.
PM MAIL   Вверх
~FoX~
Дата 21.4.2011, 22:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68
Слева на право, с верху вниз.... Поменяй координаты местами...

Добавлено @ 22:46
Через сколько тебе это сдать нужно?  smile 

Это сообщение отредактировал(а) ~FoX~ - 21.4.2011, 22:47


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Solominka
Дата 21.4.2011, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Слева на право, с низу вверх.... Поменяй координаты местами...


Как именно поменять то?
Я уже по-всякому меняю - оно всё как-то криво :(
PM MAIL   Вверх
~FoX~
Дата 21.4.2011, 22:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68
Цитата(Solominka @  21.4.2011,  23:48 Найти цитируемый пост)
Я уже по-всякому меняю - оно всё как-то криво :( 

Сори посмотрел не туда....
Sheet.Cells[1,1]:='Имя 1-го столбца';
Sheet.Cells[2,1]:='Имя 2-го столбца';
Sheet.Cells[1,2]:= '1-номер строки, 1-номер столбца 
Sheet.Cells[2,2]:= '2-номер строки, 2-номер столбца 




Это сообщение отредактировал(а) ~FoX~ - 21.4.2011, 22:59


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Solominka
Дата 21.4.2011, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

Sheet.Cells[1,1]:='Имя 1-го столбца';
Sheet.Cells[2,1]:='Имя 2-го столбца';
Sheet.Cells[1,1]:= '1-номер строки, 1-номер столбца 
Sheet.Cells[1,2]:= '1-номер строки, 2-номер столбца 


Не поняла... Всё равно как-то криво выходит :(

Добавлено через 4 минуты и 27 секунд
Цитата

Через сколько тебе это сдать нужно?


До конца этой недели сделать нужно.
А там ещё работы непочатый край.

Есть ещё кое какие проблемы с некоторыми рассчётными столбцами, плюс осталось сделать примитивные  примочки типа поиска и "причесать" внешний вид программы. И на всё провсё, по сути пара дней.

Так что мне как-то вот не смешно, увы :(
PM MAIL   Вверх
Solominka
Дата 22.4.2011, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Всё, я разобралась сама уже, всем спасибо.

Просто оказывается менять надо было расположение результатов ещё тут:

Код

index:=2;
 Form9.Query1.First;
 with Form9.DBGrid1.DataSource.DataSet do
 begin
 Form9.Query1.DisableControls;
 for i:=0 to Form9.DBGrid1.SelectedRows.Count-1 do
  begin
  GotoBookmark(pointer(Form9.DBGrid1.SelectedRows.Items[i]));
   Sheet.Cells[2,index]:=Form9.Query1.Fields.Fields[0].AsString;
   Sheet.Cells[3,index]:=Form9.Query1.Fields.Fields[1].AsString;
   Sheet.Cells[4,index]:=Form9.Query1.Fields.Fields[2].AsString;
   Sheet.Cells[5,index]:=Form9.Query1.Fields.Fields[3].AsString;
   Inc(index);
  Form9.Query1.Next;
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.0491 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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