给一个排序grid控件吧？立即在线给分！！

Question

就是那种按某个显示字段名就能按照此字段排序的那种。
发到[email protected]
多谢了！！

Answer 1

你把grid连接的 数据集 排序了，不就可以了吗？

Answer 2

Express公司的dxDBGrid控件可实现此功能，在OnCloumnClick事件中加入代码：
**TableName**.IndexFieldNames:=Column.FieldName;

Answer 3

cxgrid!目前很好的构件多家公司在用！

Answer 4

ehlib的dbgrideh很好, 而且排序时显示小箭头, 很漂亮, 我们一直用它

Answer 5

为什么我安装控件老出错，比如我下载的dbgrideh，有三个.pas的文件，我选了DBGRIDEH.PAS
但是，安装时就出错了，显示是它的语句错了，不过我想想不大可能吧，不知如何是好？？？

Answer 6

xirumin(吃好喝好) 
dbgrideh 可以不用排序数据源就进行排序吗？在什么地方设置？

Answer 7

要设置一下optioneh中的dghAutoSortMarking为true, 然后在OnSortMarkingChange中写代码
var i :Integer;
    s:String;
    Actived: Boolean;
begin
  inherited;
  s := '';
  for i := 0 to DBGrid.SortMarkedColumns.Count-1 do
   if DBGrid.SortMarkedColumns[i].Title.SortMarker <> smUpEh then
     s := s + DBGrid.SortMarkedColumns[i].FieldName + ' DESC , '
   else
     s := s + DBGrid.SortMarkedColumns[i].FieldName + ', ';  if s <> '' then s := Copy(s,1,Length(s)-2);
//  Actived := DataSource1.DataSet.Active;
  TADOQuery(DataSource1.DataSet).Sort:=s;
//  DM.qryHouse.SQL.Strings[DM.qryHouse.SQL.Count-1] := s;
//  if Actived then
//  begin
//    DataSource1.DataSet.Close;
//    DataSource1.DataSet.Open;
//    tadoquery.
//  end;
end;

Answer 8

xirumin(吃好喝好) :
谢谢了。可是不是我的帖子不能给分，下次吧。我的分多的用不完。