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

Вниз

Фильтрация по TDateTime   Найти похожие ветки 

 
Anton   (2002-12-20 09:07) [0]

Решил тут воспользоваться фильтом в TTable. Заполняю Filter в object inspector"е выражением DATETIME>10/10/2000
При открытии базы данных выскакивает ошибка:
"Project xxxxx raised exception class EDatabaseError with message "Arithmetic in filter expressions not supported"".
Что я неправильно указываю? Заранее благодарю.


 
Alexandr ©   (2002-12-20 09:09) [1]

разделитель неправильный.
Он думает, что ты делить числа собрался.


 
Anton   (2002-12-20 09:13) [2]

Если ставлю вместо "/" точки (как в моих региональных настройках), то выдает такую ошибку "Invalid filter expression character: ".""
Как же составить фильтр правильно?


 
Johnmen ©   (2002-12-20 09:18) [3]

DATETIME>"10.10.2000"


 
Alexandr ©   (2002-12-20 09:18) [4]

про кавычки забыл...
DATETIME>"10/10/2000"
а вот с разделителем и порядком число-месяц или месяц-число возможны заморочки...


 
Anton   (2002-12-20 09:23) [5]

Спасибо большое. С кавычками заработало.


 
tarik   (2002-12-25 16:24) [6]

Братцы, выручайте. Точно такая же проблема. Только у меня даты берутся из DateTimePicker.
В общем вот кусок кода:

procedure TFormSalesValue.Button1Click(Sender: TObject);
var DateStart, DateEnd: string;
begin
tbOrders.Filter:="";
DateStart := DateToStr(DateTimeBegin.Date);
DateEnd := DateToStr(DateTimeEnd.Date);
tbOrders.Filter:="PhoneDate >" + DateStart + "AND PhoneDate <" + DateEnd;
tbOrders.Filtered := True;
end;


ЗЫ: Ногами не бейте, из меня программер никакой еще :)


 
Johnmen ©   (2002-12-25 16:34) [7]

И видимо уже никакой не получится...


 
vopros ©   (2002-12-25 16:39) [8]

procedure TFormSalesValue.Button1Click(Sender: TObject);
var DateStart, DateEnd: string;
begin
tbOrders.Filter:="";
DateStart := DateToStr(DateTimeBegin.Date);
DateEnd := DateToStr(DateTimeEnd.Date);
tbOrders.Filter:="PhoneDate >" +""""+ DateStart +""""+ "AND PhoneDate <" +""""+ DateEnd+"""";
tbOrders.Filtered := True;
end;




 
Anatoly Podgoretsky ©   (2002-12-25 16:54) [9]

Таже проблема даты надо указывать в кавычках и соответствии с региональными настройками.

tbOrders.Filter:="PhoneDate>" + QuotedStr(DateStart) + " AND PhoneDate<" + QuotedStr(DateEnd);


 
tarik   (2002-12-25 16:56) [10]

Спасибо. Заработало.

Johnmen ©
и тебе спасибо на добром слове...



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

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

Наверх




Память: 0.48 MB
Время: 0.027 c
1-62584
Berg
2003-01-08 15:44
2003.01.20
Помогите разобраться с ошибкой


4-62929
alvin
2002-12-03 09:51
2003.01.20
WM_HOTKEY


14-62739
Anatoly Podgoretsky
2003-01-04 10:24
2003.01.20
Именинники 4 января


1-62570
Сергей Макаров
2003-01-11 15:19
2003.01.20
Обработчик ошибок


14-62764
Oleg__
2002-12-30 09:48
2003.01.20
Описание констант модуля Windows