Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.06.16;
Скачать: [xml.tar.bz2];

Вниз

Фильтрация Table   Найти похожие ветки 

 
OxOTHuK   (2003-05-23 22:49) [0]

есть такой код, который в соответствии с элементами на форме, устанавливает критерий фильтрации таблицы. Проблема в том, что некоторые поля заплнены РУССКИМИ словами, а их надо писать в одиночных кавычках типа: name="Вася Пупкин", если писать ручками, то никаких проблем, а если прграммно (см.ниже) то компилятор ругается (зараза такая)...

И еще вопрос: как поставить фильтрацию по маске (name="Вася"*, т.е. всех Вась надо вывести)

procedure TForm1.Button1Click(Sender: TObject);
begin
if combobox1.Text<>""
then table1.Filter:="ocenka="+combobox1.Text;
if combobox2.Text<>""
then table1.Filter:=Table1.filter+
" and kurs="+combobox2.Text;
if edit1.Text<>"" then
table1.Filter:=Table1.filter+" and fio="+#39+edit1.Text+#39;
table1.Filtered:=true;
end;


 
Zacho   (2003-05-23 23:14) [1]

А, случайно, функция AnsiQuotedStr не поможет ?
И неплохо было бы привести текст сообщения об ошибке.


 
Ovsjanikov   (2003-05-24 11:29) [2]

Что то я вопроса не понял ...
У тебя в таблице фамилии с кавычками записаны ???

Поле: FIO
ИВАНОВ
ПЕТРОВ
...

Table1.filter:="И*";
выводит всех на И...
Только нужно в свойствах таблицы выключить NoPartialCompare.

А вот с кавычками я так вопроса и не понял...


 
OxOTHuK   (2003-05-24 23:31) [3]

>> Ovsjanikov: В таблице фамилии и имена без кавычек, но в фильтре надо добавить одиночные кавычки " ", наверное потому, что фамилия имя и отчество находятся в одном поле.
NoPartialCompare - это где?

>>Zacho
Ругается на строку "and "

>> ALL
А нельзя установить поиск по подстроке?


 
Leshiy   (2003-05-25 08:35) [4]

Если combobox1.Text="" а
combobox2.Text<>""
то что получаем в Table1.Filter? :)


 
OxOTHuK   (2003-05-26 23:26) [5]

>> Leshiy ©
tnx... моя промашечка..

>> ALL

Всем спасибо - вопрос ЗАКРЫТ



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.325 c
3-50252
Gamar
2003-05-26 21:20
2003.06.16
Автоинкремент и паковка dBase


7-50538
JibSkeart
2003-04-10 12:26
2003.06.16
как узнать (програмно) запущен ли, или остновлен Сервис


1-50385
Tornado
2003-06-04 13:19
2003.06.16
Форма


3-50236
Engel
2003-05-24 19:52
2003.06.16
ADO, SQL и кэширование


1-50370
Yus
2003-06-04 06:31
2003.06.16
Проблема со шрифтом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский