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

  • Автор темы pyharok
  • Дата начала
P

pyharok

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

Немогу никак етот фильтр сложить......
Помогите плиз, завал полний...
 
E
#2
Что конкретно не получается? и покажите как делали
 
P

pyharok

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

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;
 
E
#4
а так?
Код:
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;
 
E
#6
исправлять надо, ... я не телепат, я на растоянии не вижу
 
P

pyharok

#7
сори .......

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

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

Вложения

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