dbgrid 怎么排序的问题？给贴有分！

Question

请问师兄dbgrid 怎么排序的问题？（我想把序号大的排在最上面）

Answer 1

那应该在你的query的查询语句中进行排序呀，比如：select * from tablename order by yourid

Answer 2

DBGrid1TitleClick事件里面:ADOTable.Sort := Column.FieldName;

Answer 3

dbgrid控件本身是不能够排序的,只能是你的数据源可以排序,table或query才能排序,dbgrid只是一个显示的控件

Answer 4

procedure Tcsmanage_Form.DBGrid1TitleClick(Column: TColumn);
begin 
  IF pos('DESC',adoquery1.Sort)<=0 THEN
    adoquery1.Sort:=column.FieldName+' DESC'
  ELSE
    adoquery1.Sort:=column.FieldName+' ASC';
end;

Answer 5

//给你Copy了一个
点击DBGrid的Title对查询结果排序      欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议， 
例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TFHkdata.SortQuery(Column:TColumn);varSqlStr,myFieldName,TempStr: string;OrderPos: integer;SavedParams: TParams;beginif not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;if Column.Field.FieldKind =fkData thenmyFieldName := UpperCase(Column.Field.FieldName)elsemyFieldName := UpperCase(Column.Field.KeyFields);while Pos(myFieldName,';')<>0 domyFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100);with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) dobeginSqlStr := UpperCase(Sql.Text);// if pos(myFieldName,SqlStr)=0 then exit;if ParamCount>0 thenbeginSavedParams := TParams.Create;SavedParams.Assign(Params);end;OrderPos := pos('ORDER',SqlStr);if (OrderPos=0) or(pos(myFieldName,copy(SqlStr,OrderPos,100))=0) thenTempStr := ' Order By ' + myFieldName + ' Asc'else if pos('ASC',SqlStr)=0 thenTempStr := ' Order By ' + myFieldName + ' Asc'elseTempStr := ' Order By ' + myFieldName + ' Desc';if OrderPos<>0 then SqlStr := Copy(SqlStr,1,OrderPos-1);SqlStr := SqlStr + TempStr;Active := False;Sql.Clear;Sql.Text := SqlStr;if ParamCount>0 thenbeginParams.AssignValues(SavedParams);SavedParams.Free;end;Prepare;Open;end;end;
 
 

Answer 6

select * from 表 order by 序号 desc

Answer 7

用SQL语句
select * from table1 
order by table1_id  desc

Answer 8

qiume(杜克) 的方法好！很通用。

Answer 9

除了主索引字段外,把其它想排序的列,其段设为Secondary Indexes,
procedure TfmPlayVideo.DBGrid1TitleClick(Column: TColumn);
begin
  Table1.IndexFieldNames:=column.FieldName ;
end;