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;

Unigui 的TUniDBGrid排序功能V3

标签：index   names   tst   排序   cti   基础   优化   roc   lse