Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2011, 23:15   #1
Gennadiy
Пользователь
 
Регистрация: 12.03.2007
Сообщений: 23
Радость := RowVisible;

привет возник вопрос как сделать отборку в nextDBGrid

в компоненте nextgrid это делаеться так

Код:
procedure TForm1.edtFilterChange(Sender: TObject);
var
  i: Integer;
  s: string;
  RowVisible: Boolean;
begin
  for i := 0 to NextGrid1.RowCount - 1 do
  begin
    s := UpperCase(edtFilter.Text);
    RowVisible := (s = '') or (Pos(s, UpperCase(NextGrid1.Cell[0, i].AsString)) > 0);
    NextGrid1.RowVisible[i] := RowVisible;
  end;
end;
а в nextdbgrid не получаеться

Код:
procedure TForm1.edtFilterChange(Sender: TObject);
var
  i: Integer;
  s: string;
  RowVisible: Boolean;
begin
  for i := 0 to NextDBGrid1.RowCount - 1 do
  begin
    s := UpperCase(edtFilter.Text);
    RowVisible := (s = '') or (Pos(s, UpperCase(NextDBGrid1.Cells[0, i])) > 0);
    NextDBGrid1.RowCount; // тут нужно спрятать ненужные поля
  end;
end;
help
Gennadiy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц