Фильтрация

@Лида · Регистрация: 26.06.2011

Студворк — интернет-сервис помощи студентам

При запуске и попытке Фильтрации записей таблицы по фамилии возникает ошибка "project project1.exe raised exception class eoleexception with message 'Voditeli':No index for field 'Familia'' " Как устранить эту ошибку?
вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Unit8;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB;
 
type
  TFiltr = class(TForm)
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Filtr: TFiltr;
 
implementation
 
uses Unit1, Unit3, Unit2, DateUtils, DBTables, Unit4, Unit5, Unit6, Unit7, Unit9,
  Unit10, Unit11, Unit12;
 
{$R *.dfm}
 
procedure TFiltr.Button1Click(Sender: TObject);
begin
DataModule2.Voditeli.IndexFieldNames:='Familia';
DataModule2.Voditeli.Filtered:=true;
DataModule2.Voditeli.Filter:='Familia='''+Edit1.Text+'*''';
end;
 
procedure TFiltr.Button2Click(Sender: TObject);
begin
DataModule2.Voditeli.IndexFieldNames:='Familia';
DataModule2.Voditeli.Filtered:=false;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;
 
procedure TFiltr.FormActivate(Sender: TObject);
begin
DataModule2.Voditeli.FilterOptions:=[foCaseInsensitive];
DataModule2.Voditeli.Filtered:=false;
end;
 
procedure TFiltr.Button3Click(Sender: TObject);
begin
DataModule2.Voditeli.Filtered:=true;
DataModule2.Voditeli.Filter:='Familia<'''+Edit1.Text+'*''';
end;
 
procedure TFiltr.Button4Click(Sender: TObject);
begin
Edit1.Enabled:=False;
DataModule2.Voditeli.IndexName:='F';
DataModule2.Voditeli.SetRangeStart;
DataModule2.Voditeli.FieldByName('Familia').AsString:=Edit2.Text;
DataModule2.Voditeli.SetRangeEnd;
DataModule2.Voditeli.FieldByName('Familia').AsString:=Edit3.Text;
DataModule2.Voditeli.ApplyRange;
Edit2.Text:='';
Edit3.Text:='';
end;
 
end.

@Waddonator · 26.06.2013, 10:55

@Лида, вот код, фильтрующий таблицу по полю Familia, по данным, введенным в Edit1

Delphi
1
2
3
4
5
DataModule2.Voditeli.Filtered := False;
if Edit1.text<>'' then begin
   DataModule2.Voditeli.Filter := '[Familia] = '+QuotedSTR(Edit1.Text+'*');
   DataModule2.Voditeli.Filtered := True;
end;

Добавлено через 1 минуту
Этот код лучше вставить в событие OnChange компонента Edit1: при вводе сразу же фильтруется, если ничего не введено, то отображаются все записи.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом