Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

Не могу установить фильтр на таблицу   Найти похожие ветки 

← →
AntonUSAnoV   (2008-03-20 18:37) [0]

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 , что как я понял значит что нет записей удовлетворяющих фильтру, но если задавать фильтр через инспектор объектов, то всё нормально, есть записи...

---

← →
Palladin ©   (2008-03-20 18:39) [1]

а try except end это так специально сделано? типа были какие то непонятные тебе ошибки и ты решил, что если ошибку не видно - значит ее нет. гениально.

---

← →
AntonUSAnoV   (2008-03-20 18:57) [2]

допустим убрал try except end

---

← →
Palladin ©   (2008-03-20 19:17) [3]

ага... давай допустим... и что... ругается? кстати, переменную time можешь не заводить, такая функция и так есть... так же как и функция date

---

← →
aleko   (2008-03-20 20:10) [4]

Возможно у тебя фильтр задан неверно, кажется должно быть так:
sorevnovania.Filter:="Data1 > " + """" + filter + """";

---

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

Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх

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