| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

фильтрация по дате

Link ©   (2002-06-29 13:06:00) 

Друзья! Подскажите начинающему программисту: как фильтровать по дате (тип timestamp)? Хотелось бы вводить в Edit1 и Edit2 максимальное и минимальное значения. Но даты почему-то сравниваются как текст.

---

Ulugbek   (2002-07-05 09:06:00) [1]

Мне тоже это помогло!
Спасибо!

---

Lola   (2002-07-01 11:29:00) [2]

> Proton © (30.06.02 21:59)

Я подразумевала, что фильтр будет определятся в OnFilterRecord, как потом посоветовал jedi ©. Не точно выразилась :-). Там двойное условие не проходит.

---

Anatoly Podgoretsky   (2002-06-30 22:19:00) [3]

NailS © (30.06.02 15:24)
А ты не пробовал даты взять в кавычки, попробуй

---

jedi   (2002-06-30 22:15:00) [4]

esli o4en" nujno fil"trirovat" dataset i po svosistvi filter nelzya tak est" vozmojnost" sdelat" ato v Sobitie OnFilterRecord
naprimer:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := DataSet.FieldByName("EmpName").AsString = "John";
end;

---

Proton   (2002-06-30 21:59:00) [5]

> Lola © (30.06.02 13:12)

id>10 and id<100

---

saf   (2002-06-30 19:09:00) [6]

если итдекс поставить, то можно.

---

Lola   (2002-06-30 13:12:00) [7]

> Link (29.06.02 13:56)
Не знаю, как в книгах, но в жизни двойное условие в фильтре еще не разу не прошло (по крайней мере у меня, если у кого-то прошло, то было бы очень познавательно узнать, как).

---

MsGuns   (2002-06-30 00:28:00) [8]

> Saf
Маленький нюанс. Если таблица как Detail, то рез.НД не Live !
Т.е. нельзя ее редактировать

---

saf   (2002-06-29 21:40:00) [9]

Советую использовать Query и SQL-запрос.

---

Lola   (2002-06-29 19:57:00) [10]

Извини, сегодня же суббота.

procedure TKrt_Prodza.DateEdit1Change(Sender: TObject);
begin

taTmp_Prod.IndexFieldNames := "Data_Prod";
taTmp_Prod.SetRange([DateEdit1.Date],[DateEdit2.Date]);
end;

procedure TKrt_Prodza.DateEdit2Change(Sender: TObject);
begin
taTmp_Prod.IndexFieldNames := "Data_Prod";
taTmp_Prod.SetRange([DateEdit1.Date],[DateEdit2.Date]);
end;

---

Link   (2002-06-29 14:24:00) [11]

ответьте хоть кто-нибудь! Очень нужно!

---

Link   (2002-06-29 13:56:00) [12]

нашёл в книге:
Table1.Filter:="P_Birthday>"+DateToStr(dtpBirthdayMin.Date)+"and P_Birthday<"+DateToStr(dtpBirthdayMax.Date);

Но у меня не воспринимается Date. Сам не знаю зачем он тут.

---

Наверх