|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
не правильно фильтрует
У меня есть Edit, в него ввожу "Фамилию" и он должен найти ее. А у меня, после полного введения фамилии в поле Edit, оставляей только те фамилии которые находятся ниже искомой.
вот код Код:
procedure TStudentForm.FilterFamEditChange(Se nder: TObject); begin If Length(FilterFamEdit.Text)>0 then DataModule1.StudentTable.Filtered:= True else DataModule1.StudentTable.Filtered:= False; DataModule1.StudentTable.Filter:='Ф амилия>'''+FilterFamEdit.Text+''''; end; lmikle: Пользуемся тегами!!! Последний раз редактировалось lmikle, 18.05.2012 в 23:51. |
#2
|
|||
|
|||
Сначала ставим фильтр, только потом включаем фильтрацию.
Это так, лирика. Теперь по вопросу. А какое условие ты поставил в фильтре? Вот ровно то ты и получаешь в результате. Код должен выглядеть примерно так: Код:
procedure TStudentForm.FilterFamEditChange(Se nder: TObject); begin If FilterFamEdit.Text <> '' then DataModule1.StudentTable.Filter:='Ф амилия='''+FilterFamEdit.Text+'''' else DataModule1.StudentTable.Filter:=''; DataModule1.StudentTable.Filtered:= FilterFamEdit.Text <> ''; end; |