Поиск-?

[Evgenii]

В DBgrid есть столбец, которого нету в самой БД MSAccess, нужно найти ячейки в этом столбце со значением 1. Фильтр применить не удается, т.к. фильтрация осуществляется по базе (а столбца, напомню, там нет).
Подскажите, можно ли найти какой нибудь другой выход? Как осуществить поиск по гриду?
И еще, 1 вопрос: столбец с именем № содержит некоторое количество одинаковых значений: 555 например. Предельно допустимое содержание числа 555 в базе - 10. Пользователь не знает какое количество значения 555 на данный момент. Нажимает кнопку, и если больше 10, грид выдает все строки содержащие 555. Вот как бы это реализовать?
Буду очень благодарен за помощь!!

[Yurk@]

И еще, 1 вопрос: столбец с именем № содержит некоторое количество одинаковых значений: 555 например. Предельно допустимое содержание числа 555 в базе - 10. Пользователь не знает какое количество значения 555 на данный момент. Нажимает кнопку, и если больше 10, грид выдает все строки содержащие 555. Вот как бы это реализовать?

а что, фильтр уже отменили ?

[Stilet]

Ну если речь идет о выичсляемом поле то например так:

begin
 Table1.First;
 while (not Table1.Eof)and(Table1.FieldByName('qq').AsInteger<>3) do Table1.Next;
end;

Где qq - то самое поле.

[Evgenii]

а что, фильтр уже отменили ?

Фильтр ищет по определенным параметрам. Именно значение 555 нельзя задать, т.к. оно может никогда и не достичь 10. Я его привел для примера. Тут может быть какое угодно значение. Вполне возможно что это будет какоенибудь число 585431. Мы же не знаем сколько повторений его в базе. Но если его больше 10, при нажатии на кнопку, программа должна сообщить что вот число 585431 выходит за пределы допустимого значения. Вот о чем речь

[Evgenii]

Stilet, а что дает этот код? Программа находит первую запись в столбце qq со значением 3 и все. Или я что то не понял?

[Stilet]

Программа находит первую запись

Ну. Тебе же поиск нужен? Вот я и предлагаю в цикле проходить по записям.

[Evgenii]

Поиск конечно нужен, но необходимо чтобы, как при фильтрации, в таблице оставались все записи со значением 3, а не первая найденная.

[Stilet]

Evgenii

ХМ... я бы тогда рыл в сторону запросов с подзапросом... Не пробовал но думаю нужно копать в эту сторону.
Или так: Получили набор с вычисляемыми полями, а от него уже запрос с фильтрацией.

[Evgenii]

В общем намного проще было бы использовать фильтрацию, а столбец сделать в БД. Но вот в чем проблема:

 procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
...
               begin
  if Column.FieldName = '#' then
    if (Column.Field.Asstring > '0') then
    if adotable1.FieldByName('*').value > 0 then
    begin
      DBGrid1.Canvas.Brush.Color := clyellow;
           adotable1.Edit;
   adotable1.FieldByName('№').value := 12121 ;
    end;

При определенных параметрах, ячейке столбца № присваевается значение 12121. Это вызывает при нажатии кнопки с кодом adotable1.insert вставку пустых строк в dbgrid. Можно ли это исправить какнибудь проще чем создавать поиск по гриду?