Значение DBLookupComboBox

[mihali4]

Может из-за того что это поле лукаповское?

Так там так и написано - "Поле УСЛУГА не может быть использовано в фильтре"...
Решение. У вас есть Combobox1.text, делаете Locate с ним по таблице услуг и получаете идентификатор услуги. Вот его смело вводите как условие в фильтр.

К тому же незнаю как сделать проверку на пустые поля в Edit и Combobox

Они имеют свойство TEXT.
if Edit1.Text>'' then...

[MARCH]

Сообщение от mihali4

Так там так и написано - "Поле УСЛУГА не может быть использовано в фильтре"...
Решение. У вас есть Combobox1.text, делаете Locate с ним по таблице услуг и получаете идентификатор услуги. Вот его смело вводите как условие в фильтр.

а можно по подробнее на счет Locate, а то что то я не совсем понял, или напишите строчку кода!

Также и по поводу Edit, я понял что вы хотите, но немогу сложить условие для нескольких Edit! Помогите пожалуйста!

[MARCH]

Я вот тут сделал через DBLookupCombobox, забираю значение text, и у меня возникает вопроа:
можно ли сделать значение все записи?

[mihali4]

по подробнее на счет Locate

http://www.programmersforum.ru/showthread.php?t=25416

[MARCH]

Спасибо большое, за помощь! С Locate я разобрался!
У меня другая проблема, не могу сделать нормальную фильтрацию по таблице нарды! Надо что бы производилась фильтрация по событыю Change каждого компонента или нажатию кнопки, но фильтр не сбрасыволся, а дополнял условие! Помогите плиз! Только не кидай ссылки на литературу, я уже пролез весь инет, так ничего сделать и не смог!
Вот мой проект

[mihali4]

На вашем примере:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Table3.Locate('USLUGA',Combobox1.text,[]) ;
if Table1.Filter>' ' then
Table1.Filter:=Table1.Filter+' and USLUGAID='+QuotedStr(DBEdit8.text)
//или Table1.Filter:=Table1.Filter+' and USLUGAID='+QuotedStr(Table3.FieldByName('Id').AsString)
else
Table1.Filter:='USLUGAID='+QuotedStr(DBEdit8.text);
//или Table1.Filter:='USLUGAID='+QuotedStr(Table3.FieldByName('Id').AsString); 
Table1.Filtered:=true;
end;

[MARCH]

Спасибо большое! Все оказалось гениально и просто, а я голову ломал, у меня из головы вылетел этот способ: A:=A+B;
А строчка

//или Table1.Filter:=Table1.Filter+' and USLUGAID='+QuotedStr(Table3.FieldBy Name('Id').AsString)

будет более грамотно написана, чем то что я написал!!!
Спасибо Вам еще раз, за помощь, незнаю как бы я без Вас что либо делал!

[MARCH]

Михалыч, помогите еще раз!
Вообщем
вот код

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 не работает!

[MARCH]

Все нашел косяк!
Но все равно этот алгоритм не подходит!
Фильтрация работает только 1 раз, а при повторном выполнении события Change, он показывает пустое поле
ведь у нас получается к первому событию прибавляется второе!

[mihali4]

"Косяк" у вас в этой строке:
if Table1.Filter=' ' then
не "=", а ">".
Не так сумбурно. Попытайтесь описать проблему с повторным OnChange подробнее, с указанием компонентов и порядка производимых вами манипуляций, а также полученных результатов.