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