Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: помогите!.... фильтр
Форум программистов > Системное программирование > Delphi и Pascal > Delphi - Компоненты
pyharok
Ситуация такова:
- на форме есть компонента PageControl с двумя вкладками на которих есть DbGrid'и связание с одной таблицей (Table1).
- в Table1 есть поле с названием TypNaselPunkt которое имеет два значения: gorod ; derevnya.
Нужно чтоби при виборе 1 вкладки работал фильтр по gorod'е, а при виборе 2 - по derevnya.

Немогу никак етот фильтр сложить......
Помогите плиз, завал полний...
etc
Что конкретно не получается? и покажите как делали
pyharok
Цитата(etc @ 17:05:2008, 17:02 ) *
Что конкретно не получается? и покажите как делали


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

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
Цитата(etc @ 17:05:2008, 18:15 ) *
это вы уже напороли в другом месте
еще раз - исправлять надо, ... я не телепат, я на растоянии не вижу



пасиба за помощь, буду обращатся еще
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.