ADOTable и Sort

@avpdnepr · Регистрация: 12.08.2015

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

Здравствуйте на форме делаю сортировку в ADOTable при помощи Sort. При закрытие формы(mrOk и Post() или Cansel() ) появляется ошибка "Несовпадение типов".
Форма вызывается через ShowModal()

@Sasha · 17.04.2016, 22:51

Приведи код

@avpdnepr · 18.04.2016, 08:18 **[ТС]**

C++

//Òèòóëüíàÿ ñòðîêà
        TitleCaption();
 
        //Äàòà îòïðàâêè ðåçóëüòàòîâ äèàãíîñòèêè
        SendResult( PatientForm->IdPatient );
 
        //Äàòà îêîí÷àíèÿ ëå÷åíèÿ
        EndResult( PatientForm->IdPatient );
        PatientForm->EndReception = 0;
 
        //Ñ÷¸ò÷èê êîëè÷åñòâà äèàãíîñòèê è çâîíêîâ ê ïàöèåíòó
        CountReception( PatientForm->IdPatient );
 
        //Ðåçóëüòàò ïî æàëîáàì
        CountResult( PatientForm->IdPatient );
 
        //Îòêðûòèå ôîðìû ñ êàðòî÷êîé ïàöèåíòà
        if( AuthorizationForm->AddReception == 1 )
                PatientForm->ButtonNewReception->Visible = true;
 
        else
                PatientForm->ButtonNewReception->Visible = false;
 
 
        if( AuthorizationForm->EditPatient == 1 )
        {
                //PatientTableStatus = 2;
 
                DataModule1->ADOTablePatient->Edit();
 
                PatientForm->ButtonSavePatientCard->Visible = true;
                PatientForm->ButtonCanselSaveCard->Visible = true;
        }
        else
        {
                //PatientTableStatus = 1;
 
                PatientForm->ButtonSavePatientCard->Visible = false;
                PatientForm->ButtonCanselSaveCard->Visible = true;
        }
 
        if( AuthorizationForm->RecordCountSuperUser == 1 )
                PatientForm->ButtonBlock->Visible = true;
        else
                PatientForm->ButtonBlock->Visible = false;
 
        //Ñîðòèðîâêà òàáëèöû ñ äèàãíîñòèêàìè
        DataModule1->ADOTableReception->Sort = "Data_recepson DESC";
 
        if( PatientForm->ShowModal() == mrOk )
        {
                if( AuthorizationForm->EditPatient == 1 )
                {
                        //Äàòà îòïðàâêè ðåçóëüòàòîâ
                        if( PatientForm->CheckBoxResult->Checked == true )
                                DataModule1->ADOTablePatient->Fields->Fields[15]->Value
                                        = PatientForm->DateTimePickerReslut->Date.FormatString("dd.mm.yyyy");
                        else
                        {
                                DataModule1->ADOTablePatient->Fields->Fields[15]->Clear();
                        }
 
                        //Äàòà îêîí÷àíèÿ ëå÷åíèÿ
                        if( PatientForm->CheckBoxEndReception->Checked == false
                            && PatientForm->EndReception == 1 )
                        {
                                DataModule1->ADOTablePatient->Fields->Fields[21]->Clear();
                        }
                        if( PatientForm->CheckBoxEndReception->Checked == true
                            && PatientForm->EndReception == 1 )
                        { 
                                DataModule1->ADOTablePatient->Fields->Fields[21]->Value
                                        = PatientForm->DateTimePickerEndReception->Date.FormatString("dd.mm.yyyy");
                        }
 
                        DataModule1->ADOTablePatient->Post();
 
                        if( PatientForm->CheckBoxEndReception->Checked == false
                            && PatientForm->EndReception == 1 )
                        {
                                MainForm->CheckBoxTreated->Checked = true;
                                MainTableFilter();
                        }
                        if( PatientForm->CheckBoxEndReception->Checked == true
                            && PatientForm->EndReception == 1 )
                        {
                                MainForm->EndingTreatment( PatientForm->IdPatient, 1 );
 
                                MainForm->PatientCardUpdate( PatientForm->IdPatient );
 
                                MainForm->CheckBoxTreated->Checked = false;
                                MainTableFilter();
                        }
                }
                
                PatientForm->Close();
        }

Добавлено через 9 минут
Да, ADOTAble связана через MasterSource с другой таблицей

Новые блоги и статьи
Создание макробота, как способа экономии времени и варианта ИИ. Hrethgir 28.01.2025 Чисто теоретически, создание ИИ на ПК можно разделить на части. Создать бота отвечающего за железо (эмулирование вкл, выкл, мышь, клавиатура), другой бот осуществляет распознавание изображений,. . .	[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .

@avpdnepr 1 / 1 / 1 Регистрация: 12.08.2015 Сообщений: 125
		1
	ADOTable и Sort 17.04.2016, 21:35. Показов 1785. Ответов 2 Метки нет (Все метки) Здравствуйте на форме делаю сортировку в ADOTable при помощи Sort. При закрытие формы(mrOk и Post() или Cansel() ) появляется ошибка "Несовпадение типов". Форма вызывается через ShowModal() 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	17.04.2016, 22:51	2
	Приведи код 0

	18.04.2016, 08:18

ADOTable и Sort

Решение