MemTableEh динамическое создание и удаление полей

@Bit_Man · Регистрация: 24.04.2012

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

Всем добрый день. Проблема с созданием поля уже после создания массива записей (метод CreateDataSet).
Процедура создания поля

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
TField* __fastcall CreateField(TDataSet *DataSet)
{
  if (DataSet->Active) DataSet->Close();
 
  TField *Field = new TStringField(DataSet->Owner);
  int FieldIndex = DataSet->FieldCount - 1;
  int FieldNumber = (DataSet->FieldCount > 0 ?
      StrToInt(DataSet->Fields->Fields[FieldIndex]->FieldName.SubString(DataSet->Fields->Fields[FieldIndex]->FieldName.Length(),1)) : 0)
      + 1;
  Field->FieldName = "MyField" + IntToStr(FieldNumber);
  //Field->Name = "";
  //Field->DisplayLabel = "";
  Field->Size = 100;
  Field->DataSet = DataSet;
 
  return Field;
}

При коде

C++
1
2
3
  MemTableEh2->Close();
  CreateField(MemTableEh2);
  MemTableEh2->Open();

выходит ошибка. Скорее всего то что поле не описано в FieldDef.
Сделал второй вариант через загрузку (метод LoadFromDataSet) во временный MemTableEh с пересоздание массива записей (CreateDataSet), но при этом теряется перемещение записей и столбцов.

@Bit_Man · 26.09.2016, 10:46 **[ТС]**

Доделал по второму варианту. Только перед загрузкой (метод LoadFromDataSet) во временный MemTableEh не нужно закрывать основной MemTableEh.

Кликните здесь для просмотра всего текста

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
void __fastcall CreateFieldDef(TDataSet *DataSet)
{
  if (DataSet->Active) DataSet->Close();
 
  DataSet->FieldDefs->BeginUpdate();
  int FieldNumber = 0;
  int TempNumber = 0;
  for (int i=0; i < DataSet->FieldDefs->Count; i++)
   {TempNumber = DataSet->FieldDefs->Items[i]->Name.Length();
    TempNumber = StrToInt(DataSet->FieldDefs->Items[i]->Name.SubString(TempNumber,1));
    if (FieldNumber <= TempNumber) FieldNumber = TempNumber + 1;
   }
  if (FieldNumber == 0) FieldNumber++;
  
  DataSet->FieldDefs->Add("Field_" + IntToStr(FieldNumber), ftString, 100, false);
  DataSet->FieldDefs->EndUpdate();
}
 
void __fastcall AddField(TMemTableEh *MemTableEh)
{
  TMemTableEh* TempMemTableEh = new TMemTableEh(MemTableEh->Owner);
  TempMemTableEh->LoadFromDataSet(MemTableEh, -1, lmCopy, false);
 
  int RecNo = -1;
  if (MemTableEh->Active)
   {RecNo = MemTableEh->Rec->Index;
    MemTableEh->Close();
   }
  CreateFieldDef(MemTableEh);
  MemTableEh->DisableControls();
  MemTableEh->CreateDataSet();
  MemTableEh->LoadFromDataSet(TempMemTableEh, -1, lmAppend, false);
  if (RecNo > -1) MemTableEh->RecNo = RecNo;
  MemTableEh->EnableControls();
 
  TempMemTableEh->Close();
  TempMemTableEh->DestroyTable();
  delete TempMemTableEh;
 
  if (!MemTableEh->Active) MemTableEh->Open();
}
 
void __fastcall RemField(TMemTableEh *MemTableEh, AnsiString FieldName)
{
  if (!MemTableEh->Active || MemTableEh->FieldCount == 0) return;
 
  TMemTableEh* TempMemTableEh = new TMemTableEh(MemTableEh->Owner);
  TempMemTableEh->LoadFromDataSet(MemTableEh, -1, lmCopy, false);
 
  int RecNo = -1;
  if (MemTableEh->Active)
   {RecNo = MemTableEh->Rec->Index;
    MemTableEh->Close();
   }
  int IndexFieldDef = MemTableEh->FieldDefs->IndexOf(FieldName);
  MemTableEh->FieldDefs->Delete(IndexFieldDef);
  if (MemTableEh->FieldDefs->Count)
   {MemTableEh->DisableControls();
    MemTableEh->CreateDataSet();
    MemTableEh->LoadFromDataSet(TempMemTableEh, -1, lmAppend, false);
    if (RecNo > -1) MemTableEh->RecNo = RecNo;
    MemTableEh->EnableControls();
   }
 
  TempMemTableEh->Close();
  TempMemTableEh->DestroyTable();
  delete TempMemTableEh;
 
  if (MemTableEh->FieldDefs->Count && !MemTableEh->Active) MemTableEh->Open();
}

И разобрался с перемещением столбцов

Кликните здесь для просмотра всего текста

C++
1
2
3
4
void __fastcall TLabService::DBGridEh1ColumnMoved(TObject *Sender, int FromIndex, int ToIndex)
{
  MemTableEh2->FieldDefs->Items[FromIndex]->Index = ToIndex;
}

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 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 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .