Формирование таблицы

@Тихий_Дон · Регистрация: 21.06.2015

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

В моей программе формируется таблица из БД, всё хорошо. Но при выгрузке в Ексель нехватает одного столбца (12 столбца).
Подозреваю, что формирование идет через цикл, во фрагмент кода, кто может подсказать что тут не так?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
while(not dmavvid.MemTableEh1.Eof) do
      begin
        ArrayData[RowCount, 1] := inttostr(dmavvid.MemTableEh1.RecNo);
        a:=1; b:=2;
        repeat
         begin
          if form1.DBGridEh1.Columns[a-1].Visible=true then
           begin
            ArrayData[RowCount, b] := form1.DBGridEh1.Columns[a-1].Field.asstring;
            a:=a+1; b:=b+1;
           end
           else a:=a+1;
         end;
        until b> form1.DBGridEh1.VisibleColumns.Count;
 
        Cell1 := WorkBook.WorkSheets[1].Cells[RowCount -1 , 1];
        Cell2 := WorkBook.WorkSheets[1].Cells[RowCount, form1.DBGridEh1.VisibleColumns.Count];
        Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
        Range.Borders.LineStyle := 1;
        RowCount := RowCount + 1;
        dmavvid.MemTableEh1.Next;
        ProgressBar1.StepBy(nStep);
 
         If (dmavvid.MemTableEh1.Eof) then
        begin
        ArrayData[RowCount, 1] := 'Итого операций:';
        ArrayData[RowCount, 2] := inttostr(dmavvid.MemTableEh1.RecordCount);
        Cell1 := WorkBook.WorkSheets[1].Cells[RowCount -1, 1];
        Cell2 := WorkBook.WorkSheets[1].Cells[RowCount, form1.DBGridEh1.VisibleColumns.Count];
        Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
        Range.Borders.LineStyle := 1;
        end;
       end;         //while

@qwertehok · 06.12.2017, 10:10

а эта колонка на форме есть?

@Тихий_Дон · 06.12.2017, 10:21 **[ТС]**

qwertehok, да. В программе всё ок, проблема только при формировании Екселя, точнее там тоже все ок, только нет последнего столбца.

@myrzzza · 07.12.2017, 05:12

У тебя проблема в цикле в самом, А именно вывод. отправь исходник. Посмотрю. Исправлю, вроде не сложно.

@Тихий_Дон · 07.12.2017, 08:05 **[ТС]**

myrzzza, ну так вот я же прислал тут фрагмент нужного цикла. Что именно тут проблемно? Исходник отправить не имею возможности.

Скандербег · 07.12.2017, 10:11

Наверное, в цикле с постусловием проверка на выход должна иметь переменную a, но не b

Delphi
1
until a > form1.DBGridEh1.VisibleColumns.Count;

@Тихий_Дон · 07.12.2017, 10:21 **[ТС]**

Скандербег, попробовал, но к сожалению, вылезла ошибка. Прилагаю вложение со снимком ошибки.

Скандербег · 07.12.2017, 11:55

Эта ошибка никакого отношения к вышеприведенному выражению не имеет и возникает тогда, когда происходит обращение к вариантному массиву по индексу, выходящему за пределы установленного размера.
Так что ошибку надо искать в строках, где упоминается ArrayData.

@Тихий_Дон · 07.12.2017, 11:58 **[ТС]**

Скандербег, Ещё раз повторяю, что если оставить всё как есть, то выводит всё правильно, но без последнего столбца. Посмотрю тогда массив.

@Алекcей · 07.12.2017, 12:30

а зачем "городить огород"? ведь dbGridEh сам умеет экспортировать в Excel.

@Тихий_Дон · 07.12.2017, 13:17 **[ТС]**

Алекcей, никто не городит огород, просто не выводит последний столбец в Ексель, каким образом можно сделать экспортирование dbGridEh в Ексель? Искал в интернете не нашёл, буду благодарен если вы подскажите тогда, чтобы "не городить огород".

@Алекcей · 07.12.2017, 13:31

в uses дописать DBGridEhImpExp

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

@Тихий_Дон · 07.12.2017, 13:44 **[ТС]**

Алекcей, Мне требуется сохранить мою концепцию. Можете помочь с 12 столбцом?

@Алекcей · 07.12.2017, 14:05

наверное могу. присылайте проект,если он не секретный конечно

@Тихий_Дон · 07.12.2017, 14:47 **[ТС]**

Вот полный код всей процедуры.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
procedure TForm1.anExcelExecute(Sender: TObject);
 const al:array[1..26] of char=('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
 var
  ExcelApp, WorkBook, Range, Cell1, Cell2, ArrayData: Variant;
  pr,str: String;
  BeginCol, BeginRow, i, j,a,b,amnt1,fasc1,sum_fasc: integer;
  RowCount, ColCount: integer;
  F: TextFile;
  nStep,i1: integer;
  flShowComponent: Boolean;
begin
    ProgressBar1.Min := 0;
    ProgressBar1.Max := 10000;
    nStep := Round(8400 / DBGrideh1.RowCount);
    ProgressBar1.Position := 0;
    PageControl1.Cursor := crHourGlass;
    StatusBar1.Panels[4].Text := 'Передача отчёта в Excel';
    DBGrideh1.Cursor := crHourGlass;
    PageControl1.Refresh;
    DBGrideh1.Refresh;
    Application.ProcessMessages;
 
    if(DBGrideh1.RowCount <> 0) then begin
      dmavvid.MemTableEh1.DisableControls;
      ExcelApp := CreateOleObject('Excel.Application');
      ExcelApp.Application.EnableEvents := false;
      WorkBook := ExcelApp.WorkBooks.Add;
      WorkBook.Sheets[1].PageSetup.Orientation := 2;
      WorkBook.Sheets[1].PageSetup.LeftMargin := 58;
      WorkBook.Sheets[1].PageSetup.RightMargin := 27;
      BeginRow := 1; BeginCol := 1;
      RowCount := DBGrideh1.RowCount * 3; ColCount := DBGrideh1.VisibleColumns.Count;
      ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varOleStr);
 
      WorkBook.WorkSheets[1].Range['A1', al[DBGrideh1.VisibleColumns.Count]+'1'].MergeCells := True;
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'1'].HorizontalAlignment := -4108;
      WorkBook.WorkSheets[1].Range['A2', al[DBGridEh1.VisibleColumns.Count]+'2'].MergeCells := True;
      WorkBook.WorkSheets[1].Range['A2', al[DBGridEh1.VisibleColumns.Count]+'2'].HorizontalAlignment := -4108;
 
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'3'].HorizontalAlignment:=3;
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'3'].VerticalAlignment:=2;
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'3'].wrapText:=true;
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'3'].Font.Name := 'Times New Roman';
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'3'].Font.Size := 10;
      WorkBook.WorkSheets[1].Range['A1', al[DBGridEh1.VisibleColumns.Count]+'3'].Font.FontStyle := 'полужирный';
 
 
      ArrayData[1, 1] := 'Ведомость внутреннего перемещения оборудования на предприятии';
      arrayData[3, 1] := '№';
      for i:=2 to DBGrideh1.VisibleColumns.Count do
      begin
      ArrayData[3, i] := DBGrideh1.Columns[i-2].Title.Caption;
      end;
 
      WorkBook.Sheets[1].Range['A2', al[DBGrideh1.VisibleColumns.Count]+'3'].Borders.LineStyle := 1;
      WorkBook.Sheets[1].Range['A2', al[DBGrideh1.VisibleColumns.Count]+'3'].Font.Name := 'Times New Roman';
      WorkBook.Sheets[1].Range['A2', al[DBGrideh1.VisibleColumns.Count]+'3'].Font.FontStyle := 'полужирный';
 
      RowCount := 4;
      dmavvid.MemTableEh1.First;
      ProgressBar1.StepBy(400);
 
      while(not dmavvid.MemTableEh1.Eof) do
      begin
        ArrayData[RowCount, 1] := inttostr(dmavvid.MemTableEh1.RecNo);
        a:=1; b:=2;
        repeat
         begin
          if form1.DBGridEh1.Columns[a-1].Visible=true then
           begin
            ArrayData[RowCount, b] := form1.DBGridEh1.Columns[a-1].Field.asstring;
            a:=a+1; b:=b+1;
           end
           else a:=a+1;
         end;
        until b > form1.DBGridEh1.VisibleColumns.Count;
 
        Cell1 := WorkBook.WorkSheets[1].Cells[RowCount -1 , 1];
        Cell2 := WorkBook.WorkSheets[1].Cells[RowCount, form1.DBGridEh1.VisibleColumns.Count];
        Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
        Range.Borders.LineStyle := 1;
        RowCount := RowCount + 1;
        dmavvid.MemTableEh1.Next;
        ProgressBar1.StepBy(nStep);
 
         If (dmavvid.MemTableEh1.Eof) then
        begin
        ArrayData[RowCount, 1] := 'Итого операций:';
        ArrayData[RowCount, 2] := inttostr(dmavvid.MemTableEh1.RecordCount);
        Cell1 := WorkBook.WorkSheets[1].Cells[RowCount -1, 1];
        Cell2 := WorkBook.WorkSheets[1].Cells[RowCount, form1.DBGridEh1.VisibleColumns.Count];
        Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
        Range.Borders.LineStyle := 1;
        end;
       end;         //while
 
 
      Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
      Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount +3, BeginCol + ColCount - 1];
      Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
 
      for i:=1 to form1.DBGridEh1.VisibleColumns.Count do
      begin
       WorkBook.WorkSheets[1].Range[al[i]+'1'].ColumnWidth := 125/(form1.DBGridEh1.VisibleColumns.Count+1);
       WorkBook.WorkSheets[1].Columns[i].HorizontalAlignment := 3;
       WorkBook.WorkSheets[1].Columns[i].VerticalAlignment := 4;
      end;
 
      Range.Value := ArrayData;
      Range.Font.Name := 'Times New Roman';
      Range.Font.Size := 9;
 
 
      ExcelApp.Visible := true;
      ProgressBar1.StepBy(100000 - ProgressBar1.Position);
 
      PageControl1.Cursor := crDefault;
      DBGridEh1.Cursor := crDefault;
      PageControl1.Refresh;
      ProgressBar1.Position := 0;
      StatusBar1.Panels[4].Text := 'Выбрано строк: ' + IntToStr(dmavvid.MemTableEh1.RecordCount);
      StatusBar1.Visible := True;
      Application.ProcessMessages;
    end
    else
      ShowMessage('Нет данных для передачи!');
    dmavvid.MemTableEh1.EnableControls;
 
end;

@Алекcей · 07.12.2017, 14:49

процедура хорошо, но мне нужен весь проект.

@Тихий_Дон · 07.12.2017, 15:24 **[ТС]**

Нет возможности скинуть весь проект. По процедуре не скажете что не так? Формирование файла ексель вроде же в ней.

@Тихий_Дон · 22.12.2017, 11:24 **[ТС]**

Так что ребят, может кто сказать почему в данном цикле формируется 11 столбцов, а не 12?

@D1973 · 22.12.2017, 15:06

Сообщение от Тихий_Дон

По процедуре не скажете что не так?

Дык это даже не процедура - это обрывок процедуры...

Не по теме:

Это Шерлок Холмс мог по обрывку носового платка определить хозяина, его возраст и род занятий...

@Тихий_Дон · 22.12.2017, 20:58 **[ТС]**

D1973, Ну как бы в предыдущих сообщениях я выкладывал код полной процедуры, будьте внимательней!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@qwertehok 5968 / 4544 / 1094 Регистрация: 29.08.2013 Сообщений: 28,165 Записей в блоге: 3
	06.12.2017, 10:10
	а эта колонка на форме есть? 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	06.12.2017, 10:21 [ТС]
	qwertehok, да. В программе всё ок, проблема только при формировании Екселя, точнее там тоже все ок, только нет последнего столбца. 0

@myrzzza 0 / 0 / 0 Регистрация: 29.11.2017 Сообщений: 11
	07.12.2017, 05:12
	У тебя проблема в цикле в самом, А именно вывод. отправь исходник. Посмотрю. Исправлю, вроде не сложно. 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	07.12.2017, 08:05 [ТС]
	myrzzza, ну так вот я же прислал тут фрагмент нужного цикла. Что именно тут проблемно? Исходник отправить не имею возможности. 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	07.12.2017, 10:21 [ТС]
	Скандербег, попробовал, но к сожалению, вылезла ошибка. Прилагаю вложение со снимком ошибки. Миниатюры 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	07.12.2017, 11:55
	Эта ошибка никакого отношения к вышеприведенному выражению не имеет и возникает тогда, когда происходит обращение к вариантному массиву по индексу, выходящему за пределы установленного размера. Так что ошибку надо искать в строках, где упоминается ArrayData. 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	07.12.2017, 11:58 [ТС]
	Скандербег, Ещё раз повторяю, что если оставить всё как есть, то выводит всё правильно, но без последнего столбца. Посмотрю тогда массив. 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	07.12.2017, 12:30
	а зачем "городить огород"? ведь dbGridEh сам умеет экспортировать в Excel. 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	07.12.2017, 13:17 [ТС]
	Алекcей, никто не городит огород, просто не выводит последний столбец в Ексель, каким образом можно сделать экспортирование dbGridEh в Ексель? Искал в интернете не нашёл, буду благодарен если вы подскажите тогда, чтобы "не городить огород". 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	07.12.2017, 13:44 [ТС]
	Алекcей, Мне требуется сохранить мою концепцию. Можете помочь с 12 столбцом? 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	07.12.2017, 14:05
	наверное могу. присылайте проект,если он не секретный конечно 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	07.12.2017, 14:49
	процедура хорошо, но мне нужен весь проект. 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	07.12.2017, 15:24 [ТС]
	Нет возможности скинуть весь проект. По процедуре не скажете что не так? Формирование файла ексель вроде же в ней. 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	22.12.2017, 11:24 [ТС]
	Так что ребят, может кто сказать почему в данном цикле формируется 11 столбцов, а не 12? 0

@Тихий_Дон 3 / 3 / 1 Регистрация: 21.06.2015 Сообщений: 115
	22.12.2017, 20:58 [ТС]
	D1973, Ну как бы в предыдущих сообщениях я выкладывал код полной процедуры, будьте внимательней! 0