| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не могу установить фильтр на таблицу [D7, XP]
AntonUSAnoV © (2008-03-20 18:37:00)
var
time: Tdatetime;
year, month, day: Word;
filter:string;
begin
try
time:=now;
decodedate(time, year, month, day);
filter:='1.'+inttostr(month)+'.'+inttostr(year);
tsorevnovania.Filter:='Data1>'''+filter+'''';
tsorevnovania.Filtered:=true;
except end;
После вот такого кода программа запускается, и после применения фильтра, выдаётся сообщение с ошибкой No current record , что как я понял значит что нет записей удовлетворяющих фильтру, но если задавать фильтр через инспектор объектов, то всё нормально, есть записи...
aleko (2008-03-20 20:10:00) [1]Возможно у тебя фильтр задан неверно, кажется должно быть так:
sorevnovania.Filter:='Data1 > ' + '''' + filter + '''';
Palladin (2008-03-20 19:17:00) [2]ага... давай допустим... и что... ругается? кстати, переменную time можешь не заводить, такая функция и так есть... так же как и функция date
AntonUSAnoV (2008-03-20 18:57:00) [3]допустим убрал try except end
Palladin (2008-03-20 18:39:00) [4]а
try except endэто так специально сделано? типа были какие то непонятные тебе ошибки и ты решил, что если ошибку не видно - значит ее нет. гениально.
| |
