DBGRID - Имя поля (FieldName)

← →
VALUA (2006-06-08 14:42) [0]

Господа , что делаю не так ? Кликаю на заголовке поля (pole1) и набор данных должен проиндексироваться по этому полю и обновиться ->
procedure TForm16.DBGrid2TitleClick(Column: TColumn);
begin
if (Column.FieldName = "pole1") then begin - не срабатывает условие
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add("Select * from FILE");
IBQuery1.SQL.Add("where (Priz = 1) and (Kod = :P0)");
IBQuery1.SQL.Add("Order by pole1,pole2,pole3");
IBQuery1.Params[0].AsInteger := p1;
IBQuery1.Open;
end;
end;

← →
Ega23 © (2006-06-08 14:47) [1]

if (ANSIUpperCase(Column.FieldName) = ANSIUpperCase("pole1"))
?

Ток следует учесть, что чем больше таблица, тем дольше она индексируется. Я не знаю всего ТЗ, но мне кажется, что индексировать на OnTitleClick - не самая лучшая идея. Это как правило делается один раз
Например, у мя был DBF на 3 гига (насколько я помню), и он индексировался
около минут 15... (Delphi3, Win95). Правда, было это лет 6 назад...

DBGRID - Имя поля (FieldName) Найти похожие ветки