помогите!.... фильтр

[pyharok]

Ситуация такова:
- на форме есть компонента PageControl с двумя вкладками на которих есть DbGrid'и связание с одной таблицей (Table1).
- в Table1 есть поле с названием TypNaselPunkt которое имеет два значения: gorod ; derevnya.
Нужно чтоби при виборе 1 вкладки работал фильтр по gorod'е, а при виборе 2 - по derevnya.

Немогу никак етот фильтр сложить......
Помогите плиз, завал полний...

 

[etc]

Что конкретно не получается? и покажите как делали

 

[pyharok]

Что конкретно не получается? и покажите как делали

использую собитие когда активна первая вкладка Город, вместо ??? незнаю какой задать параметр

procedure TfKlPost.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex=0 then
begin
Table1.Filter:='TypNaselPunkt='+QuotedStr(??? '*' );
Table1.Filtered:=true
end
else
Table1.Filtered:= false;
end;

 

[etc]

а так?

procedure TfKlPost.PageControl1Change(Sender: TObject);
begin
Table1.Filtered:= false;
if PageControl1.ActivePageIndex=0 then
Table1.Filter:=Format('TypNaselPunkt=%s', [QuotedStr('gorod')])
else
Table1.Filter:=Format('TypNaselPunkt=%s', [QuotedStr('derevnya')]);
Table1.Filtered:= true;
end;

 

[pyharok]

видает ошибку...... там в файле

 

[etc]

исправлять надо, ... я не телепат, я на растоянии не вижу

 

[pyharok]

сори .......

вот, при запуске той форми дословно:

Table1: Type mismatch for field 'Typ_Kl_Post', expecting: String actual: Integer.

 

[etc]

это вы уже напороли в другом месте
еще раз - исправлять надо, ... я не телепат, я на растоянии не вижу

 

[pyharok]

это вы уже напороли в другом месте
еще раз - исправлять надо, ... я не телепат, я на растоянии не вижу

пасиба за помощь, буду обращатся еще