在dbgrid中点击字段名就按照本列的字段来排序(转载)

void __fastcall TfraCe::GridTitleClick(TColumn *Column)
{
    TCustomADODataSet* ds = dynamic_cast<TCustomADODataSet*>(
        Column->Grid->DataSource->DataSet);
    if (!ds)
        return;

    static AnsiString FSortDir;
    if (FSortDir == " DESC")
        FSortDir = " ASC";
    else
        FSortDir = " DESC";
    ds->Sort = Column->FieldName + FSortDir;
}

FSortDir是一个成员变量(全局变量)
这个方法只适合于ADO控件