|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
13.11.2008, 01:12 | #41 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Решение. У вас есть Combobox1.text, делаете Locate с ним по таблице услуг и получаете идентификатор услуги. Вот его смело вводите как условие в фильтр. Цитата:
if Edit1.Text>'' then... |
||
13.11.2008, 09:42 | #42 | |
Пользователь
Регистрация: 04.11.2008
Сообщений: 39
|
Цитата:
Также и по поводу Edit, я понял что вы хотите, но немогу сложить условие для нескольких Edit! Помогите пожалуйста!
Все когда нибудь начинаю, и становятся проффи
|
|
13.11.2008, 10:06 | #43 |
Пользователь
Регистрация: 04.11.2008
Сообщений: 39
|
Я вот тут сделал через DBLookupCombobox, забираю значение text, и у меня возникает вопроа:
можно ли сделать значение все записи?
Все когда нибудь начинаю, и становятся проффи
|
14.11.2008, 00:03 | #44 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
|
|
14.11.2008, 03:19 | #45 |
Пользователь
Регистрация: 04.11.2008
Сообщений: 39
|
Спасибо большое, за помощь! С Locate я разобрался!
У меня другая проблема, не могу сделать нормальную фильтрацию по таблице нарды! Надо что бы производилась фильтрация по событыю Change каждого компонента или нажатию кнопки, но фильтр не сбрасыволся, а дополнял условие! Помогите плиз! Только не кидай ссылки на литературу, я уже пролез весь инет, так ничего сделать и не смог! Вот мой проект
Все когда нибудь начинаю, и становятся проффи
|
14.11.2008, 14:04 | #46 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
На вашем примере:
Код:
Последний раз редактировалось mihali4; 15.11.2008 в 00:21. |
15.11.2008, 00:12 | #47 |
Пользователь
Регистрация: 04.11.2008
Сообщений: 39
|
Спасибо большое! Все оказалось гениально и просто, а я голову ломал, у меня из головы вылетел этот способ: A:=A+B;
А строчка //или Table1.Filter:=Table1.Filter+' and USLUGAID='+QuotedStr(Table3.FieldBy Name('Id').AsString) будет более грамотно написана, чем то что я написал!!! Спасибо Вам еще раз, за помощь, незнаю как бы я без Вас что либо делал!
Все когда нибудь начинаю, и становятся проффи
|
15.11.2008, 13:14 | #48 |
Пользователь
Регистрация: 04.11.2008
Сообщений: 39
|
Михалыч, помогите еще раз!
Вообщем вот код procedure TForm1.ComboBox1Change(Sender: TObject); begin //получение идентификатора по полю "УСЛУГИ" Table3.Locate('USLUGA',Combobox1.te xt,[]) ; //условие фильтрации по полю "УСЛУГИ" if Table1.Filter='' then Table1.Filter:=Table1.Filter+'and USLUGAID='+QuotedStr(Table3.FieldBy Name('USLUGAID').AsString)else Table1.Filter:='USLUGAID='+QuotedSt r(Table3.fieldByName('USLUGAID').As String); Table1.Filtered:=true; end; но привыполнении события выдает:Table 'and' not found! А быз and не работает!
Все когда нибудь начинаю, и становятся проффи
|
15.11.2008, 18:29 | #49 |
Пользователь
Регистрация: 04.11.2008
Сообщений: 39
|
Все нашел косяк!
Но все равно этот алгоритм не подходит! Фильтрация работает только 1 раз, а при повторном выполнении события Change, он показывает пустое поле ведь у нас получается к первому событию прибавляется второе!
Все когда нибудь начинаю, и становятся проффи
|
15.11.2008, 23:12 | #50 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
"Косяк" у вас в этой строке:
if Table1.Filter=' ' then не "=", а ">". Не так сумбурно. Попытайтесь описать проблему с повторным OnChange подробнее, с указанием компонентов и порядка производимых вами манипуляций, а также полученных результатов. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
DBLookupComboBox | SunKnight | Компоненты Delphi | 6 | 25.02.2012 08:55 |
Dblookupcombobox значение по дефолту при условии | 1sal1 | Общие вопросы Delphi | 2 | 12.12.2009 14:16 |
И снова DbLookupCombobox | Loki | БД в Delphi | 5 | 18.11.2007 23:50 |
DBLookupComboBox | Dunpeal | Компоненты Delphi | 5 | 09.08.2007 18:28 |
DBLookupCombobox??? | Alexcandr | Компоненты Delphi | 2 | 05.04.2007 16:46 |