Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Индексация таблицы 


Вика   (2002-01-26 12:54) [0]

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

Решаю через OnFilterRecord
Accept:=Pos(F1.E1.Text,DateSet["xx"])>0;

Как нить можно сделать, что бы таблица фильтровалась без учёта высоты
введённых символов в эдит? Что бы запись "xxxxxxx xxxxxxxQWxxxx"
оставалась после фильтрации не только по введённому "QW" но и
по "qw" ???

Что то функция foCaseInsensitive в FilterOptions у меня не
заработала, как хотелось бы. Где-то, что-то упустила я....



wicked   (2002-01-26 16:41) [1]

можно сделать и так - на событие OnChange в эдите вешаешь обработчик примерно такого содержания:


if F1.E1.Text <> "" then begin
DateSet.Filter := "xx = " + F1.E1.Text + "*";
DateSet.Filtered := true;
end
else DateSet.Filtered := false;


и включаешь foCaseInsensitive в FilterOptions.....
недостатком такого способа - тормоза при больших наборах данных....
более элегантный способ - обойтись без фильтра... ;)
в тот же обработчик написать:

if F1.E1.Text <> "" then
DateSet.Locate("xx", F1.E1.Text, [loCaseInsensitive, loPartialKey]);

подробности смотри в help"е....



Anatoly Podgoretsky   (2002-01-26 23:53) [2]

Ты попробовал прежде чем советовать?

2 Вика
Accept:=Pos({Ansi}UpperCase(F1.E1.Text),UpperCase(DateSet["xx"]))>0;

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

ЗЫ: это кстати называется фильтрация, а не индексация




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
4-66709           vector^               2001-12-22 12:37  2002.02.21  
Как найти чужое окно.Смотрел FAQ , но ни чего не понял :-(


3-66417           kriss                 2002-01-25 13:35  2002.02.21  
предлагаю работу по написанию баз данных Access с VB


7-66695           Cool Wopros           2001-09-28 23:09  2002.02.21  
Как сделать, чтобы, когда говоришь..................???


3-66479           niks                  2002-01-28 08:35  2002.02.21  
VCL 8.5 от Crystal Report


3-66429           sync                  2002-01-25 08:06  2002.02.21  
Remote Data Module