会python真的可以为所欲为0(回)
365天前
这里还有人吗1(回)
550天前这里还有人吗0(回)
550天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
775天前到处都是羊，不想上班0(回)
855天前
鸽子
0(回)
859天前procedure DsSort(SortColumn: TColumnEh); |
var |
OldIndex: string; |
begin |
if (SortColumn.Grid.DataSource = nil) or (SortColumn.Grid.DataSource.DataSet = nil) or (not SortColumn.Grid.DataSource.DataSet.Active) then Exit; |
OldIndex := TClientDataSet(SortColumn.Field.DataSet).IndexName; |
if OldIndex <> '' then |
begin |
TClientDataSet(SortColumn.Field.DataSet).IndexName := ''; |
TClientDataSet(SortColumn.Field.DataSet).DeleteIndex(OldIndex); |
end; |
case SortColumn.Title.SortMarker of |
smNoneEh, |
smUpEh: TClientDataSet(SortColumn.Field.DataSet).AddIndex('px', SortColumn.Field.FieldName, [ixDescending]); |
smDownEh: TClientDataSet(SortColumn.Field.DataSet).AddIndex('px', SortColumn.Field.FieldName, [ixPrimary]); |
end; |
TClientDataSet(SortColumn.Field.DataSet).IndexName := 'px'; |
end; |
procedure TSys.grdautosort(DBGridEh: TDBGridEh); |
begin |
DBGridEh.OptionsEh := DBGridEh.OptionsEh + [dghautosortmarking]; |
DBGridEh.ColumnDefValues.Title.TitleButton := true; |
end; |
