Вывести в EXCEL не все поля с DBGrida

@Kamero · Регистрация: 08.02.2013

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

Здраствуйте. Такой вопрос: как можно вывести в EXCEL из dbgrid-a только определенные поля(ну некоторые не нужны в отчете).

Я загоняю всё в массив и вывожу. Может кто подскажет как можно это реализовать по другому.

@Алекcей · 27.09.2017, 15:23

Кто мешает загнать в массив только те поля, которые нужны? Напишите подробнее как работаете с Excel.

@Kamero · 27.09.2017, 15:27 **[ТС]**

Delphi
1
2
3
  for i := 0 to FCnt-1 do
    if (DBGridEh1.Columns[i].Title.Caption<>'Поле1') or (DBGridEh1.Columns[i].Title.Caption<>'Поле2') then
    XArr[i+1] := Form9.DBGridEh1.Columns[i].Title.Caption;

@Алекcей · 27.09.2017, 15:32

вроде как DBGridEh умеет сам экспортировать в Excel. примерно так:

Delphi
1
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,DBGridEh1,'c:\temp\file1.xls',False);

только не забыть добавить в uses модуль DBGridEhImpExp.

@Kamero · 27.09.2017, 15:48 **[ТС]**

не в экспорте дело) мне нужно просто при экспорте не выводить два поля...

@Алекcей · 27.09.2017, 15:51

Delphi
1
2
3
4
5
6
j:=0;
for i := 0 to FCnt-1 do
    if (DBGridEh1.Columns[i].Title.Caption<>'Поле1') and (DBGridEh1.Columns[i].Title.Caption<>'Поле2') then begin
      inc(j);
      XArr[j] := Form9.DBGridEh1.Columns[i].Title.Caption;
    end;

@Kamero · 27.09.2017, 15:56 **[ТС]**

спасибо)

а теперь данные как так же выпелить.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
 DM.QB.First;
 while not DM.QB.Eof do
  begin
   i:=1;
   while i<=FCnt do
    begin
     if (DM.QB.FindField('Поле1')<>nil) or (DM.QB.FindField(Поле2')<>nil) then
      begin
        XArr[i] := DM.QB.Fields[i-1].Value;
        i := i+1;
      end;  
    end;

@Massaraksh7 · 27.09.2017, 16:00

Сообщение от Kamero

Delphi
1
2
3
  for i := 0 to FCnt-1 do
    if (DBGridEh1.Columns[i].Title.Caption<>'Поле1') or (DBGridEh1.Columns[i].Title.Caption<>'Поле2') then
    XArr[i+1] := Form9.DBGridEh1.Columns[i].Title.Caption;

Условие неправильное. Не or, а and.

@Алекcей · 27.09.2017, 16:02

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
DM.QB.First;
 while not DM.QB.Eof do
  begin
    j := 0;
    for i:= 0 to DM.QB.Fields.count-1 do
       if (DM.QB.Fields[i].FieldName<>'Поле1') and  (DM.QB.Fields[i].FieldName<>'Поле2') then
      begin
        inc(j);        
        XArr[j] := DM.QB.Fields[i].Value;
      end;  
    DM.QB.Next;
   end;

@qwertehok · 27.09.2017, 16:04

Сообщение от Алекcей

вроде как DBGridEh

а где у TC DBGridEh?

делай обычный sql запрос в query с нужными полями и выводи

@Алекcей · 27.09.2017, 16:09

qwertehok,

Delphi
1
2
if (DBGridEh1.Columns[i].Title.Caption<>'Поле1') or (DBGridEh1.Columns[i].Title.Caption<>'Поле2') then
    XArr[i+1] := Form9.DBGridEh1.Columns[i].Title.Caption;

не оно?

@Kamero · 27.09.2017, 16:14 **[ТС]**

ошибка "Variant or safe array index out of bounds"

Добавлено через 2 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 //äàííûå ñ ãðèäà
DM.QB.First;
 while not DM.QB.Eof do
  begin
    j := 6;
    for i:= 0 to DM.QB.Fields.count-1 do
       if (DM.QB.Fields[i].FieldName<>'Razdel') and (DM.QB.Fields[i].FieldName<>'Fond') then
      begin
        inc(j);        
        XArr[j] := DM.QB.Fields[i].Value;   <==== Вот тут останавливается компилятор
      end;  
    DM.QB.Next;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Value := XArr;
   {XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Borders[1].LineStyle:=1;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Borders[2].LineStyle:=1;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Borders[4].LineStyle:=1;}
   end;

@Алекcей · 27.09.2017, 16:25

почему

Delphi
1
j := 6;

а не

Delphi
1
j := 0;

?

@Kamero · 27.09.2017, 16:29 **[ТС]**

В моём случаи j=6 это с 6 строки в excel. Шапка на 5 строке. И вот уже с 6 выводятся данные. Но и при 0 то же ошибка.

Добавлено через 1 минуту

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
j:=6; 
DM.QB.First;
 while not DM.QB.Eof do
  begin
   i:=1;
   while i<=FCnt do
    begin
     if (DM.QB.FindField('Поле1')<>nil) or (DM.QB.FindField(Поле2')<>nil) then
      begin
        XArr[i] := DM.QB.Fields[i-1].Value;
        i := i+1;
      end;  
    end;
   j:=j+1;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Value := XArr;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Borders[1].LineStyle:=1;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Borders[2].LineStyle:=1;
   XL.Range['A'+IntToStr(j), CHR(64+FCnt)+IntToStr(j)].Borders[4].LineStyle:=1;
   end;

был примерно такой код.

@Алекcей · 27.09.2017, 16:38

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DM.QB.First;
 r:=5;
 while not DM.QB.Eof do
  begin
    j := 0;
    for i:= 0 to DM.QB.Fields.count-1 do
       if (DM.QB.Fields[i].FieldName<>'Razdel') and (DM.QB.Fields[i].FieldName<>'Fond') then
      begin
        inc(j);        
        XArr[j] := DM.QB.Fields[i].Value;   <==== Вот тут останавливается компилятор
      end;  
    DM.QB.Next;
    inc(r);
    XL.Range['A'+IntToStr(r), CHR(64+FCnt)+IntToStr(r)].Value := XArr;
   end;

попробуйте так, может поможет

@Kamero · 28.09.2017, 10:08 **[ТС]**

То же самое...

Добавлено через 1 час 15 минут
Спасибо за помощь разобрался.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Kamero 12 / 10 / 7 Регистрация: 08.02.2013 Сообщений: 254

	Вывести в EXCEL не все поля с DBGrida 27.09.2017, 15:05. Показов 786. Ответов 15 Метки нет (Все метки) Здраствуйте. Такой вопрос: как можно вывести в EXCEL из dbgrid-a только определенные поля(ну некоторые не нужны в отчете). Я загоняю всё в массив и вывожу. Может кто подскажет как можно это реализовать по другому. 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	27.09.2017, 15:23
	Кто мешает загнать в массив только те поля, которые нужны? Напишите подробнее как работаете с Excel. 0

@Kamero 12 / 10 / 7 Регистрация: 08.02.2013 Сообщений: 254
	27.09.2017, 15:48 [ТС]
	не в экспорте дело) мне нужно просто при экспорте не выводить два поля... 0

@Kamero 12 / 10 / 7 Регистрация: 08.02.2013 Сообщений: 254
	28.09.2017, 10:08 [ТС]
	То же самое... Добавлено через 1 час 15 минут Спасибо за помощь разобрался. 0