DBGridEh的排序行为不一定符合自己的要求,我更喜欢自定义它的排序过程。
1、先定义两个过程,接管它的排序行为
- procedure DBGridEhSortMarkingChanged(Sender: TObject);
- var
- i: Integer;
- strTemp: WideString;
- DBGridEh: TDBGridEh;
- begin
- DBGridEh := (Sender as TDBGridEh);
- (DBGridEh.DataSource.DataSet as TADOQuery).Sort := '';
- for i := 0 to DBGridEh.Columns.Count - 1 do <