关于DBgrid排序的问题

关注

原创最新推荐文章于 2025-07-20 19:35:41 发布 747 阅读 AI 写同款· GEO 优化 ›

Windows下用Docker部署RagFlow的5个常见错误及解决方法（附详细日志分析）本文针对Windows系统下使用Docker部署RagFlow的常见难题，提供了详细的避坑指南。文章深度剖析了WSL2配置、端口冲突、文件权限、资源限制及网络通信这五个典型错误场景，并结合具体日志分析，给出了经过验证的解决方案，帮助开发者高效完成部署。阅读详情

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

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