Вообще-то EhLib начиная версии с 3.0, кажется, позволяет автоматически сортировать данные в гриде.
Читайте help, нам описано, какие свойства надо установить.
А поскольку ADO-шные наборы он пытается сортировать путем перезапроса,
то вот мой unit для локальной сортировки.
Правда, я писал для TBEtterADODataSet,
сами замените на TADODataSet.
Как его подключить, написано в папочке EhLib в .\DataService\readme.txt
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
{*******************************************************}
{ }
{ EhLib v2. 5 }
{ Register object that sort data in TBetterADODataSet }
{ }
{ Copyright (c) 2002 by Dmitry V. Bolshakov }
{ }
{*******************************************************}
{*******************************************************}
{ Add this unit to 'uses' clause of any unit of your }
{ project to allow TDBGridEh to sort data in }
{ TBetterADODataSet automatically after sorting markers }
{ will be changed. }
{ }
{ }
{ }
{ }
{*******************************************************}
unit EhLibBetterADO;
{$I EhLib.Inc}
interface
uses
DbUtilsEh, DB, DBGridEh;
type
TBetterADODatasetFeaturesEh = class(TDatasetFeaturesEh)
public
procedure ApplySorting(Sender: TObject; DataSet: TDataSet; IsReopen: Boolean); override;
end;
implementation
uses Classes, BetterADODataSet;
{ TBetterADODatasetFeaturesEh }
procedure TBetterADODatasetFeaturesEh.ApplySorting(Sender: TObject;
DataSet: TDataSet; IsReopen: Boolean);
var SortString: String;
Separator: String;
i: Integer;
begin
inherited;
if (Sender is TCustomDBGridEh) and (DataSet is TBetterADODataSet) then
if TCustomDBGridEh(Sender).SortLocal then
with TCustomDBGridEh(Sender) do
begin
SortString := '';
for i := 0 to SortMarkedColumns.Count - 1 do
begin
if i = (SortMarkedColumns.Count - 1 ) then
Separator := ''
else
Separator := ',';
if SortMarkedColumns[i].Title.SortMarker = smUpEh then
SortString := SortString + SortMarkedColumns[i].FieldName + Separator
else
SortString := SortString + SortMarkedColumns[i].FieldName + ' DESC' + Separator;
end;
TBetterADODataSet(DataSet).Sort := SortString;
end;{ with }
end;
initialization
RegisterDatasetFeaturesEh(TBetterADODatasetFeaturesEh, TBetterADODataSet);
end.
