Unigui 的TUniDBGrid排序功能V3

在V2的基础上继续优化

procedure DbGridSortByCol(Column: TUniDBGridColumn; Direction: Boolean);

var SortStr:string;
begin
if Direction then
SortStr := Column.FieldName
else
SortStr := Column.FieldName + ‘ DESC‘;

TCustomUniDataSet(TUniDBGrid(Column.Grid).DataSource.DataSet).IndexFieldNames := SortStr ;

end;