[Kristinoidrr]

У меня база данных(Paradox) Видеотека называется. и как бы так сделать -чтобы вводишь слово - и прога выводит тебе строки где встретилось это слово (только столбец уже задан!)

[lmikle]

OnFilterRecord тебе поможет.

[lux16]

Есть вот такой способ, но он не идеальный

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  With Table1 Do
    Begin
      Filtered := False;
      FilterOptions := [foCaseInsensitive];
      Filter := '[Name]=''' + Edit1.Text + '*''';
      Filtered := True;
    End;
end;

[Kristinoidrr]

Агам...ну там разобралась! спасибо)! а как сделать если у меня диапазон: то есть нужно вывести только с такого-то по такой-то год!??

[lux16]

Тогда просто совмещаешь условия, например, имя=вася год с 1993 по 2010, то будет так: Filter := 'name=Вася AND year => 1993 AND year <= 2010';

[Страдалецъ]

А это зависит от того как вы эти данные храните. Если Год у вас как число хранится то можно так:
...

Код:

Filter := '[Year] between ' + Edit1.Text + ' and ' + Edit2.Text;

...

[Kristinoidrr]

Воооооооооооооооот это тооо что мне наааадо!!! спасибо огромное!

[s-mail]

Спасибо) тоже помогло)

[s-mail]

Всем привет! А как сделать так чтобы поле выбиралось, и желательно 2 поля. ну и значение поиска вводилось с Edit. Пробую так, но не работает:

Код:

procedure TForm1.ADOTable2FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
FieldVal: String;
begin
case Combobox2.ItemIndex of
 0:     FieldVal := DataSet['Xozyaistvo'];
 FilterOptions := [foCaseInsensitive]; // это тоже не работает(((
  Accept:=FieldVal[1]=Edit2.text;  // ругается на знак ";", вот текст ошибки: "Constant expressions expected"

  end;
end;

Админ: Пользуемся тегами для оформления кода!

Помогите пожалуйста

[lux16]

Хм, поясни толком задание, я помогу