Delphi中使用cxGrid对数据集进行Sort和Locate操作

Delphi中使用cxGrid对数据集进行Sort和Locate操作

　　核心提示：在编写某个系统时，由于使用了数据集类型无关技术(即数据集可能是ADOQuery，也有可能是TClientDataSet等等)。当需要对数据进行排序和查找时，只好利用cxGrid自身的功能来实现：fun...
在编写某个系统时，由于使用了数据集类型无关技术(即数据集可能是ADOQuery，也有可能是TClientDataSet等等)。当需要对数据进行排序和查找时，只好利用cxGrid自身的功能来实现：

function GridSortColumn(View : TcxGridDBTableView; FieldName : String) : Boolean;

var

i : Integer;

begin

{数据排序}

Result := False;

for i := 0 to View.ColumnCount -1 do

begin

if (UpperCase(View.Columns[i].DataBinding.FieldName) = FieldName) then

begin

View.Columns[i].SortIndex := 0;

View.Columns[i].SortOrder := soAscending;

Result := True;

end

else

begin

View.Columns[i].SortIndex := -1;

View.Columns[i].SortOrder := soNone;

end;

end;

end;

function GridLocateRecord(View : TcxGridDBTableView; FieldName, LocateValue : String) : Boolean;

begin

{数据查找}

Result := False;

if (View.GetColumnByFieldName(FieldName) <> nil) then

Result := View.DataController.Search.Locate(View.GetColumnByFieldName(FieldName).Index, LocateValue);

end;

对于cxGrid排序后的数据集，不应该进行Next, Prior等操作，因为数据集的排序并没有变化，进行Next等操作时，会出现记录乱跳的情况，应该如下处理：

Prior:

DBView.DataController.FocusedRowIndex := DBView.DataController.FocusedRowIndex - 1;

Next:

DBView.DataController.FocusedRowIndex := DBView.DataController.FocusedRowIndex + 1;