void __fastcall TFrmMain::wwDBGrid1TitleButtonClick(TObject *Sender,
AnsiString AFieldName)
{
if (wwDBGrid1->Tag == 0)
{
xxxDataSet->Sort = AFieldName + " ASC" ;
wwDBGrid1->Tag =1;
}
else
{
xxxDataSet->Sort = AFieldName + " DESC" ;
wwDBGrid1->Tag =0;
}
}