Скачать: CL | DM;

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"))
?

---

← →
Torin ©   (2006-06-08 16:46) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c