//TDBGridEh的dghIncSearch、FrozenCols属性是怎么用的?自动断行功能是怎么实现的? 没用过,帮你up!//使用ADO连接数据库的话为什么不能实现点击标题自动排序? 这个可以啊!我是这样实现的 procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh); var sortstr: string; begin SortStr:=''; case Column.Title.SortMarker of smNoneEh: Column.Title.SortMarker:=smDownEh; smDownEh: Column.Title.SortMarker:=smUpEh; smUpEh:Column.Title.SortMarker:=smDownEh ; end; if Column.Title.SortMarker = smDownEh then SortStr:=Column.Field.FieldName+' DESC' else SortStr:=Column.Field.FieldName+' ASC'; with DataSource1.DataSet AS TADODataSet do Sort:= SortStr;end;
没用过,帮你up!//使用ADO连接数据库的话为什么不能实现点击标题自动排序?
这个可以啊!我是这样实现的
procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
var
sortstr: string;
begin
SortStr:='';
case Column.Title.SortMarker of
smNoneEh: Column.Title.SortMarker:=smDownEh;
smDownEh: Column.Title.SortMarker:=smUpEh;
smUpEh:Column.Title.SortMarker:=smDownEh ;
end; if Column.Title.SortMarker = smDownEh then
SortStr:=Column.Field.FieldName+' DESC'
else
SortStr:=Column.Field.FieldName+' ASC'; with DataSource1.DataSet AS TADODataSet do
Sort:= SortStr;end;