Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

Формат данных   Найти похожие ветки 

 
ava ©   (2003-03-15 13:14) [0]

Немогу понять почему неработает условие
If Table1Sdata.Value = DateTimePicker1.Date then

Формат SData - DAte


 
spogi   (2003-03-15 14:13) [1]

mojet on ne vidit polya v processe razrabotki, napr:
ti sdelal sled.? :
2 raza najmi na Table1 i v otkrivayushiysa okoshke v pustom meste najmi pravuyu knopku nishi, tam viberi "Add all fields" (dobavit vse polya), a potom doljen srabotat...
a esli sdelal, to ne imeyu ponyatiya, vrode doljen rabotat...


 
ava ©   (2003-03-15 15:18) [2]

>mojet on ne vidit polya v processe razrabotki, napr:
>ti sdelal sled.? :
> 2 raza najmi na Table1 i v otkrivayushiysa okoshke v pustom >meste najmi pravuyu knopku nishi, tam viberi "Add all fields" (dobavit vse polya), a potom doljen srabotat...
>a esli sdelal, to ne imeyu ponyatiya, vrode doljen rabotat...

Это все естественно сделано иначе-бы не компилировалось бы

Вот вся процедура

procedure TForm10.Button1Click(Sender: TObject);
begin
If RadioButton1.Checked = true then
begin

Form1.TSuma.Active := False;
Table1.Active := True;
Table1.First;
Label4.Caption := DateToStr(DateTimePicker1.DateTime) ;
while not Table1.Eof do
begin
if Table1Sdata.Value = DateTimePicker1.DateTime then
begin
Table1.Edit;
Table1Sdata.Value := DateTimePicker2.Date;
Table1.Post;
end;
Table1.Next;
end;

end else
If RadioButton2.Checked = true then
begin
Form1.TSuma.Active := False;
Table1.Active := True;
Table1.First;
while not Table1.Eof do
begin
if (Table1Sdata.Value >= DateTimePicker3.Date) and (Table1Sdata.Value <= DateTimePicker4.Date) then
begin
Table1.Edit;
Table1Sdata.Value := DateTimePicker5.Date;
Table1.Post;
end;
Table1.Next;
end;

end;



Table1.Active := False;
Form1.TSuma.Active := True;

end;

Label4 для контроля даты совпадают но условие не работает


 
ava ©   (2003-03-15 16:17) [3]

Ответ :
Заменить DateTimePicker на DateEdit из RxLab
и нет проблем



Страницы: 1 вся ветка

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-6587
вгифт
2003-03-22 08:03
2003.04.03
Текст


3-6391
_jek
2003-03-15 13:07
2003.04.03
Кодировка в dBase и InterBase


4-6850
badaxe
2003-02-05 11:42
2003.04.03
Отслеживание клавы и мыши


14-6764
AlekseyK
2003-03-15 11:20
2003.04.03
Порты TCP/UTP


3-6364
off
2003-03-14 12:27
2003.04.03
Bool поле в IB?