![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
компоненты Interbase [D6, IB6.x]
oss © (2002-11-11 17:00:00)Уважаемые, помогите! использую стандартные конпоненты в делфи7 для интербейса. Пытаюсь фильтровать набор данных, а ничего! как и не ставлю фильтр !
пример
tbObjects.Filter:="";
tbObjects.Filter:="type_id = "+inttostr(tbTypeBugsID.Value);
ShowMessage(tbObjects.Filter); // это для удостоверения
if not tbObjects.Filtered then
tbObjects.Filtered:=True;
Wolf226 (2002-11-11 18:05:00) [1]2Oss
Может стоит для начала Help почитать, а потом спрашивать.
TDataSet.OnFilterRecord
Use an OnFilterRecord event handler to filter records using a criterion that can’t be implemented using the Filter property. For example, using the Filter property, field comparisons are not supported against local tables (Paradox, dBASE, Access, FoxPro), but an OnFilterRecord event handler can implement any criterion at all.
exit (2002-11-11 17:23:00) [2]Надо написать в другом месте (обр. наж. кнопки)
tbObjects.Filtered := false;
tbObjects.Filtered := true;
А вот
tbObjects.Filter
не пригодится при таком подходе
oss (2002-11-11 17:19:00) [3]таже история... вообще нет реакции на фильтры !
exit (2002-11-11 17:13:00) [4]
procedure tbObjectsOnFilterRecord(DataSet: TDataSet; var Accept: Boolean)
begin
Accept := (tbObjects.FieldByName("type_id").AsInteger = tbTypeBugsID.Value)
end;
Но я бы лучше фильтровал в запросе.