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

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

фильтр [D6, IB6.x]


Страницы:   1 2

Senator ©   (2002-12-19 17:29:00) 

Подскажите пожалста!
Почему не обновляються данные в таблице (текст ниже в таймере)?
EventTable.Filtered:=False;
EventTable.Refresh;
EventTable.Filter:="idevent>"+IntToStr(CurrentEventID);
EventTable.Filtered:=True;
first;
while not EOF do
....
Первый раз обновляет, потом не хочет


Senator   (2002-12-19 18:03:00) [21]

я просто хочу фильтровать каждый раз по >последний ID


myor   (2002-12-19 18:01:00) [22]

...
CurrentEventID:=FieldByName("idEvent").AsInteger;

получил idEvent и что с ним делаешь?


Senator   (2002-12-19 17:53:00) [23]

пишу:
CurrentEventID-глобальная
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
EventTable.Filtered:=False;
EventTable.Refresh;
EventTable.Filter:="idevent>"+IntToStr(CurrentEventID);
EventTable.Filtered:=True;
with EventTable do
begin
first;
while not EOF do
begin
...
CurrentEventID:=FieldByName("idEvent").AsInteger;
next;
end; //while
end;


KoluChi   (2002-12-19 17:50:00) [24]

А DataSet.First() делаем?


myor   (2002-12-19 17:42:00) [25]

напиши, что именно while not EOF do...
может у тебя выход из цикла, а может нужно do begin...end?


Senator   (2002-12-19 17:36:00) [26]

Я понимаю, что может, но что тут спасать, если первый раз while not EOF do выполняеться, а потом, нет - типа конец файла, а данные в таблице обновляються!


KoluChi   (2002-12-19 17:34:00) [27]

Пошаговая отладка может спасти.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо