关于DBgrid排序的问题

最新推荐文章于 2024-03-01 21:43:27 发布

marklr

最新推荐文章于 2024-03-01 21:43:27 发布

阅读量661

点赞数

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

本文链接：https://blog.csdn.net/marklr/article/details/1906130

版权

技术资料专栏收录该内容

89 篇文章 1 订阅

订阅专栏

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

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