Главная страница
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.017 c
14-62760
Pat
2003-01-04 18:05
2003.01.20
Экзамен по информатике. Теория


7-62867
AquaSun1
2002-10-31 07:39
2003.01.20
Основные характеристики


1-62530
MemoryLeak
2003-01-10 19:57
2003.01.20
Нужен пример Paint`а стандартного в Windows`е...


1-62598
UserL
2003-01-09 08:32
2003.01.20
Вот такая не задача... Помогите


6-62690
Zergo
2002-11-20 14:50
2003.01.20
Как скачать файл.xls ч/з Inet у товарища?