关于DBgrid排序的问题

最新推荐文章于 2024-05-24 08:28:51 发布

marklr

最新推荐文章于 2024-05-24 08:28:51 发布

阅读量705

点赞数

CC 4.0 BY-SA版权

分类专栏：技术资料文章标签： dataset null

本文链接：https://blog.youkuaiyun.com/marklr/article/details/1906130

技术资料专栏收录该内容

89 篇文章

订阅专栏

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

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)
{
这里写排序代码;
}