void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column)
{
//点击DBGRID标题实现排序
String s;
if(ADOQuery1->Active)
{
if (DBGrid1->Tag==0) //顺序排列
{
ADOQuery1->Sort=Column->FieldName+" ASC";
s=Trim(Column->Title->Caption);
if(s.Pos("▽")>0||s.Pos("△")>0)
s=s.SubString(1,s.Length()-3);
Column->Title->Caption=s+" △";
Column->Font->Color = clBlack;
DBGrid1->Tag=1;
}
else //反序排列,改变字体颜色
{
ADOQuery1->Sort=Column->FieldName+" DESC";
s=Trim(Column->Title->Caption);
if(s.Pos("▽")>0||s.Pos("△")>0)
s=s.SubString(1,s.Length()-3);
Column->Title->Caption=s+" ▽";
Column->Font->Color=clGreen; //绿色
DBGrid1->Tag=0;
}
}
}
bcb中点击DBGrid标题进行排序
最新推荐文章于 2020-09-02 09:53:29 发布