Цикл внутри цикла!

@MeDveD-3A9l · Регистрация: 13.01.2013

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

Здравствуйте. Имеется БД из 2 таблиц. Подключена к программе через АДО. Нужно вывести отчет в ексель по группам: т.е. сначала вывести название группы, после все данные связанные с этой группой. Написал все это, но почему то первый цикл не очень хорошо обрабатывается, с первой записи перескакивает сразу на последнюю. Код прилагаю:

C++
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
void __fastcall TGlav::Button1Click(TObject *Sender)
{
Glav->ADOTzapisi->Sort="Группа"  " ASC";
 
AnsiString sFile;
sFile = GetCurrentDir()+"\\Печать.xlt";
 
 Variant App;
if(!fStart)
 {
 try
 {
App = Variant::CreateObject("Excel.Application");
fStart=true;
 }
 catch(...)
 {
 MessageBox(0, "Ошибка при открытии сервера",
 "Внимание", MB_OK);
 return;
 }
 }
 
Variant XLBook = App.OlePropertyGet("WorkBooks");
 
Variant Sh;
Procedure Open("Open");
XLBook.Exec(Open<<sFile);
Sh = XLBook.OlePropertyGet("Count");
Sh = App.OlePropertyGet("WorkSheets",1);
 
App.OlePropertySet("Visible",Variant(true));
 
String Str;
String Str2;
String Str3;
int i;
int index;
index=4;
Glav->ADOTgruppy->First();
for(i=1;i<=Glav->ADOTgruppy->RecordCount;i++)
 {String Grup;
  String Grupp;
 
  Grupp = Glav->ADOTgruppy->Fields->Fields[1]->AsString;
  Grup = Glav->ADOTgruppy->Fields->Fields[0]->AsString;
  Sh.OlePropertyGet("Cells",index,2).OlePropertySet("Value",Grupp.c_str());
 
  int x;
  AnsiString ran;
  index=index+1;
  Glav->ADOTzapisi->First();
  for(x=1;x<=Glav->ADOTzapisi->RecordCount;x++)
   {
    if (Glav->ADOTzapisi->Fields->Fields[1]->AsString=="True" && Glav->ADOTzapisi->Fields->Fields[3]->AsString==Grup)
    {
     Str = Glav->ADOTzapisi->Fields->Fields[1]->AsString;
     Str2 = Glav->ADOTzapisi->Fields->Fields[2]->AsString;
     Str3 = Glav->ADOTzapisi->Fields->Fields[4]->AsString;
 
     Sh.OlePropertyGet("Cells",index,2).OlePropertySet("Value",Str.c_str());
     Sh.OlePropertyGet("Cells",index,3).OlePropertySet("Value",Str2.c_str());
     Sh.OlePropertyGet("Cells",index,4).OlePropertySet("Value",Str3.c_str());
     Sh.OlePropertyGet("Cells",index,5).OlePropertySet("Value",Grup.c_str());
 
     ran="B4:D"+IntToStr(index);
     Sh.OlePropertyGet("Range",ran.c_str()).OlePropertyGet("Borders",9).
         OlePropertySet("LineStyle",1);
     Sh.OlePropertyGet("Range",ran.c_str()).OlePropertyGet("Borders",9).
         OlePropertySet("Weight",2);
     Sh.OlePropertyGet("Range",ran.c_str()).OlePropertyGet("Borders",9).
         OlePropertySet("ColorIndex",1);
 
     index=index+1;
     }
    Glav->ADOTzapisi->Next();
   }
  index=index+1;
  Glav->ADOTgruppy->Next();
 }
}

Прошу помощи!! Что может быть неправильно написано? Заранее спасибО!

Добавлено через 6 минут
Результат тоже выкладываю!

@MeDveD-3A9l · 20.05.2014, 11:03 **[ТС]**

Разобрался сам!! При проходе второго цикла курсор в Датасете "Группа" перемащался и ествественно становился на последнюю строчку, поэтому следующая и последующие записи были равны последне строчки. Добавил перед переходом на следующую строку первого цикла возврат на исходную строку в датасете.

C++
1
2
3
  TLocateOptions Options;
Options << loPartialKey << loCaseInsensitive;
Glav->ADOTgruppy->Locate("КодГруппы",Grup, Options);

Добавлено через 1 час 5 минут
и еще вопросик, мучаюсь с ним давно. Код работает отлично, но только один раз, при следующем нажатии на кнопку выходит ошибка, после перезапуска программы опять все работает и тоже только один раз. Ругается на строку:

C++
1
Variant XLBook = App.OlePropertyGet("WorkBooks");

Ошибка такая:

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .