自用极品代码:
添加定义:
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)
{
这里写排序代码;
}