Форум: "Базы";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
ВнизСортировка в TDBGridEh Найти похожие ветки
← →
Sirruf (2004-08-25 18:04) [0]Пытаюсь отсортировать данные по нажатию на заголовок столбца.
ColumnDefValues.Title.TitleButton := True,
OptionsEh.AutoSortMaking := True.
Почему-то маркер сортировки принимает только значение smDownEh и сколько бы его не нажимать, не меняется уже никогда, даже при прямом присваивании в обработчике OnTitleBtnClick св-ву Column.Title.SortMarker := smUpEh. Это глюк компонента или мой?
← →
Flagman © (2004-08-25 18:26) [1]procedure TMainForm.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
Column: TColumnEh);
var FLD : array[0..0] of TVarRec ;
sort : array[0..0] of boolean;
Grid : TCustomDBGridEh;
begin
if Sender is TCustomDBGridEh then begin
Grid:=TCustomDBGridEh(Sender);
fld[0].VType:=vtAnsiString;
if Column.Title.SortMarker=smDownEh then
Column.Title.SortMarker:=smUpEh
else Column.Title.SortMarker:=smDownEh;
string(fld[0].VString):=Column.fieldname;
sort[0]:=Column.Title.SortMarker=smDownEh;
TpFIBDataSet(Grid.DataSource.DataSet).DoSort(fld,sort);
TpFIBDataSet(Grid.DataSource.DataSet).First;
end;
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.035 c