Выгрузка DBGrid Excel

@andevel · Регистрация: 19.07.2015

Студворк — интернет-сервис помощи студентам

Добрый день, подскажите пожалуйста один момент.
Есть FDBQuery, в который я через field editor добавил поля, и есть DBGrid, в который я так же добавил колонки.

Если последовательность полей в FDBQuery совпадает с последовательностью колонок в гриде, то в excel все выводится нормально. А если в гриде во время работы программы скрыть колонки или поменять их местами, то все смещается.

Почему смещается - понятно.

Этот код, непосредственно выводит данные из датасета в excel. Вопрос в том, как узнать и указать индекс поля FDBQuery, чтобы не было смещения.

Delphi
1
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+5,col+1-col1].value:=trim(dbgrid1.DataSource.DataSet.Fields[col].AsString);

col+1-col1, тут col (счетчик от 0 до количества колонок грида), col1 - счетчик смещения, если какое-либо из полей грида скрыто.

Спасибо!

@Пытливый · 09.07.2016, 18:29

Предположу, что названия и количество колонок вы берете из грида, а данные из датасета. Вот и получаете кашу на выходе.

@andevel · 09.07.2016, 21:34 **[ТС]**

Так оно и есть . . а как правильно сделать надо?

Добавлено через 37 минут
Все, додумался сам. Что то сразу не сообразил.

Delphi
1
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+5,col+1-col1].value := trim(dbgrid1.DataSource.DataSet.FieldbyName(DBGrid1.Columns[col].FieldName).AsString);

Спасибо!

@pek · 14.07.2016, 05:37

подскажите плиз
как реализовать вот такое
у меня несколько гридов . гриды привязвные друг другу. в одном информация обьекта индификатор а в другом описание этого обьекта.
и чтобы я выбирал один пункт в грде1 а мне выгружалось вся или нужная информация привязанная к этопу полю из базы sql
при возможности можно поподробней

@Пытливый · 14.07.2016, 07:54

Эта штука называется Мастер-Деталь. Организуется связь по ключевому полю из источника данных - "Мастер" к ключевому полю в источнике данных - "Деталь".
Для "Деталь" запрос для выглядит примерно так:

SQL
1
SELECT * FROM DetailTable WHERE MasterID=:MasterID

Для "Мастер" может быть любой запрос, единственно обязательное условие - название ключевого поля по которому идет связь должно быть точно такое-же как имя параметра в "Деталь" запросе. Для моего примера это будет поле MasterID
Для компонента Query, который используется для данных "Деталь" надо свойство DataSource настроить на DataSource "Мастер"

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	09.07.2016, 18:29
	Предположу, что названия и количество колонок вы берете из грида, а данные из датасета. Вот и получаете кашу на выходе. 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	14.07.2016, 05:37
	подскажите плиз как реализовать вот такое у меня несколько гридов . гриды привязвные друг другу. в одном информация обьекта индификатор а в другом описание этого обьекта. и чтобы я выбирал один пункт в грде1 а мне выгружалось вся или нужная информация привязанная к этопу полю из базы sql при возможности можно поподробней 0