Перенос данных из одной таблице в другую, ошибка адресации

@DumpAster · Регистрация: 10.12.2015

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

В двух разных формах одной программы находятся таблицы. Необходимо при нажатии кнопки данные из одной таблицы скопировать в другую.

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm3::Button1Click(TObject *Sender)
{
if(Form4->DBGrid2->Columns->Items[0]->Field->AsString==Form3->DBGrid1->Columns->Items[0]->Field->AsString)
        ShowMessage("Учитель уже в архиве");
 else
 {
 Form4->Table2->Insert();
 Form4->DBGrid2->Columns->Items[0]->Field->AsString=Form3->DBGrid1->Columns->Items[0]->Field->AsString;
 Form4->DBGrid2->Columns->Items[1]->Field->AsString=Form3->DBGrid1->Columns->Items[1]->Field->AsString;
}
}

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

@TrollHammer · 07.03.2018, 09:07

Копируются не данные, отображаемые в таблице, а записи в БД. Какая БД и какими компонентами подключаетесь?

Добавлено через 9 минут
Пардон, увидел Table2, значит что-то типа Paradox. В своем коде Вы пытаетесь копировать данные, которые просто отображаются. На самом деле они хранятся в таблице БД и копировать их надо оттуда. Например

C++
1
2
3
4
5
6
7
8
9
10
if(Form4->Table1->Fields->Fields[0]->AsString==Form3->Table2->Fields->Fields[0]->AsString)
        ShowMessage("Учитель уже в архиве");
 else
 {
 Form4->Table1->Insert();
 Form4->Table1->Fields->Fields[0]->AsString=Form3->Table2->Fields->Fields[0]->AsString;
 Form4->Table1->Fields->Fields[1]->AsString=Form3->Table2->Fields->Fields[1]->AsString;
 Form4->Table1->Post();  //а на всякий случай :) 
 
}

И в качестве совета - давайте компонентам осмысленные имена, например fMain - главная форма, tSource - таблица-источник и т. д. Поверьте, потом легче будет разобраться с кодом

Добавлено через 14 минут
А правильно, наверное, так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    AnsiString qr = Form3->Table2->Fields->Fields[0]->AsString;
 
  //делаем так - нужен еще один компонент Query
   Query1->Active=false;
   Query1->SQL->Text = "Select * From db Where fieldname Like '%"+qr+"%'"; //db - имя базы данных, fieldname - имя поля, где идет поиск
   Query1->Open();
 
     
  if(Query1->RecordCount)  //если такая запись уже есть, то 
   ShowMessage("Учитель уже в архиве");
 
 else
 {
AnsiString qr1 = Form3->Table2->Fields->Fields[0]->AsString;
AnsiString qr2 = Form3->Table2->Fields->Fields[2]->AsString;
 
   Query1->Active=false;
   Query1->SQL->Text = "Insert Into db (fieldname1, fieldname2) Values ("+qr1+", "+qr2+")"; //db - имя базы данных, fieldname - имя поля, где идет поиск
   Query1->Open();
}

@Gagoose · 07.03.2018, 21:35

а в целом можно скопировать просто в stringgrid, не много по другому конечно, но суть таже. а так вариант TrollHammer верный.

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@Gagoose Заблокирован
	07.03.2018, 21:35
	а в целом можно скопировать просто в stringgrid, не много по другому конечно, но суть таже. а так вариант TrollHammer верный. 0