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

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

Как правильно обрабатывать событие OnFilterRecord?

Страницы:   < 1 2 >

Term ©   (2003-10-20 16:41:00) 

Сделал так:
procedure TDataModule1.UchenikiFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=DataModule1.Kurs.Locate("NUM_K;KURS",VarArrayOf([DataModule1.Ucheniki.FieldByname("NUM_K").AsInteger,SELECT_NODE .Text]),[]);
end;
но проблема в том что отфильтровывается только текущая запись, а все остальные нет...
как сделать так чтобы фильтровалась вся база???
посоветуйте плиз...

---

Term   (2003-10-20 17:38:00) [21]

procedure TDataModule1.UchenikiFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=DataModule1.Kurs.Locate("NUM_K;KURS",VarArrayOf([DataSet.FieldByname("NUM_K").AsInteger,SELECT_NODE.Text]),[]);
end;

procedure TFirst_Tab.TreeView1Click(Sender: TObject);
begin
SELECT_NODE:=First_Tab.TreeView1.Selected;
First_Tab.Caption:=SELECT_NODE.Text;;
if SELECT_NODE.Text<>"Все" then
begin
DataModule1.Ucheniki.Close;
DataModule1.Ucheniki.Filtered:=true;
DataModule1.Ucheniki.Open;
end
else DataModule1.Ucheniki.Filtered:=false;
end;

почему получается так что в отфильтрованной таблице, после обращения к значению какой либо записи, перестают быть доступны другие записи??? т.е. я щелкнул по гриду, открыл форму вывел в эдиты значения полей, закрыл форму, делаю тоже самое со следующей записью и всё ничего не открывается....

---

Term   (2003-10-20 17:01:00) [22]

> VarArrayOf([DataSet.FieldByname("NUM_K").AsInteger

не помогло, но попробывал переоткрывать таблицу и вроде заработало.

---

Johnmen   (2003-10-20 16:55:00) [23]

VarArrayOf([DataSet.FieldByname("NUM_K").AsInteger...

---

Term   (2003-10-20 16:54:00) [24]

есть кто живой.... ответьте.... я в тупике

---

Страницы:   < 1 2 >

Наверх