使用ADOTable组件如何排序呀？如何在DBgrid组件中加一个序号列？

[zyxwh]

使用ADOTable组件如何排序呀？
没有建立索引的情况下行吗？
如何在DBgrid组件中加一个计算字段，顺序显示序号，但不是表里的ID字段。

[zyxwh]

ADOTable->Sort = "F1 DESC";
那这样排序没有建立索引也能排序吗？

[Libran]

可以

[Libran]

1，在ADOTable的IndexFieldNames里指定排序的字段名（仅限升序）
或者ADOTable->Sort = "排序条件";

2，先在数据集（如ADOTable）中创建一个Integer类型的计算字段，再在OnCalcFields事件里赋值：
void __fastcall TForm1::ADOTable1CalcFields(TDataSet *DataSet)
{
DataSet->FieldByName("id")->AsInteger = DataSet->RecNo;
}

[yhec]

在任一字段的OnGetText( )事件中

[Libran]

ADOTable->Sort 里的排序条件，写法类似于SQL语句的Order by
例如，按照字段F1的倒序排序：
ADOTable->Sort = "F1 DESC";

[BCB]

在任一字段的OnGetText( )事件中
void __fastcall TDataModule1::ADODataSet1XHGetText(TField *Sender,
AnsiString &Text, bool DisplayText)
{
int r=Sender->DataSet->RecNo;
Text=(r==-1)?String(""):String(r);
}

[真如实观]

BCB(天下三分明月夜,二分无赖是扬州)是对的，我试过，真的很好！