DateTimePicker ввод и выборка

@Vasiliy-1821 · Регистрация: 14.08.2011

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

Привет всем.!!!!!!!!!!
У меня такой вопрос:
Есть Поле С типом Date
ввожу туда значение через DateTimePicker,
но оно вводиться только в одну строку,
а надо во все строки, для каждой записи в отдельности,
чтобы для каждого человека стояла одна и та же дата.
и чтоб невводить одну и ту же дату каждый раз,
для всех столбиков.
вот пример:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::DateTimePicker1Change(TObject *Sender)
{
 if (DBGrid1->DataSource->State == dsInsert ||
 DBGrid1->DataSource->State ==dsEdit )
 {
 Table1Date->Value =  DateTimePicker1->DateTime;
 
 }
}
//---------------------------------------------------------------
 
------------
void __fastcall TForm1::DateTimePicker1DropDown(TObject *Sender)
{
DBGrid1->DataSource->Edit();
}

и еще один вопросик, а как делать потом выборку по дате через
DateTimePicker2...

@Vasiliy-1821 · 26.08.2011, 23:06 **[ТС]**

Paradox7

@Sasha · 26.08.2011, 23:28

Не по теме:

Мда ну и парадокс с приветом

Как вариант можно обновить так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  Table1->First();
   while(!Table1->Eof)
 {
     DataSource1->DataSet->Edit();
     DataSource1->DataSet->FieldByName("Date")->Value = DateTimePicker1->Date;
     DataSource1->DataSet->Post();
     Table1->Next();
 }
  Table1->First();
}

@Vasiliy-1821 · 26.08.2011, 23:38 **[ТС]**

Спасибо огромное, я вам очень сильно благодарен, вы настоящий гений..

@Sasha · 26.08.2011, 23:39

Сообщение от Vasiliy-1821

Спасибо огромное, я вам очень сильно благодарен, вы настоящий гений..

Это слишком высоко сказано

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@Vasiliy-1821 13 / 13 / 0 Регистрация: 14.08.2011 Сообщений: 62
	26.08.2011, 23:06 [ТС]
	Paradox7 1

@Vasiliy-1821 13 / 13 / 0 Регистрация: 14.08.2011 Сообщений: 62
	26.08.2011, 23:38 [ТС]
	Спасибо огромное, я вам очень сильно благодарен, вы настоящий гений.. 1