Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c