先把dbgrideh的功能列出来:
a.点标题排序:
1. 设置dbgrideh的optionsEh 的dghAutoSortMarking True
2. 点击dbgrideh的colmuns属性->进入列编辑->将需要排序的列title->toolbutton设置为true
3. 加代码:
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
begin
if Column.Title.SortMarker=smdowneh then
begin
ADOQuery1.Sort:=Column.FieldName;
end
else
begin
ADOQuery1.Sort:=Column.FieldName+' DESC';
end;
end;