关于DBgrid排序的问题

来源：互联网发布：网络女主播排行榜2017 编辑：程序博客网时间：2024/05/01 19:42

自用极品代码:
添加定义:

C/C++ code

    TField *FSortField;    void __fastcall SetSortField(TField *Value);    __property TField *SortField = {read=FSortField,write=SetSortField};

C/C++ code

void __fastcall TForm1::SetSortField(TField *Value){    static bool DescSort = false;    try {        Screen->Cursor = crHourGlass;        if (FSortField != NULL) {            AnsiString label = FSortField->DisplayLabel;            FSortField->DisplayLabel = label.SubString(1,label.Length()-3); //删除尾部排序字符        }        if (FSortField == Value)            DescSort = !DescSort;        ADOTable1->Sort = Value->FieldName + " " + (DescSort?"DESC":"ASC");        Value->DisplayLabel = Value->DisplayLabel + (DescSort?"  -":"  +");        FSortField = Value;    }    __finally {        Screen->Cursor = crDefault;    }}//排序操作void __fastcall TForm1::DBGrid1TitleClick(TColumn *Column){    SortField = Column->Field;}

以上代码操作简单，不过只是用+和-表示了正向和逆向，自己可以用画图的方法做漂亮点

----------------------------------------------------------------------------------------------------------------------------------------------------

DBGrid1TitleClick事件中写

TADOQuery* temp=(TADOQuery*)DBGrid2-> DataSource-> DataSet;
//temp=NULL;
if(flag==1)//当前是升序
{
temp-> Sort=Column-> FieldName+ " DESC ";
flag=0;
}
else if(flag==0)//当前是降序
{
temp-> Sort=Column-> FieldName+ " ASC ";
flag=1;
}

这样就可以了。
DBgridEh-> 字段的TitleButton为true并且DBgridEh-> optionEh的dghAutoSortMarking为true时，在title上会出现排序三角形。
void __fastcall TForm1::DBGridEh1TitleClick(TColumnEh *Column)
{
这里写排序代码;
}