如题!
解决方案 »
- delphi 做的服务程序停止时出现异常
- 为什么设置了StringGrid的背景色后,内容就看不见了
- 500RMB求通达信数据通信接口。
- 有没有详细的如何使DELPHI和SQLSERVER2000的开发?
- 大家帮我找一下FastNet For Delphi 7这个组件
- 用access存储图像的问题!
- 100分可以再加 关于用SQL SERVER DMO对象生成数据库脚本的问题
- 高分求够TAdvGrid源码
- 各位大虾,QuickRep 中的打印内容是否可以按照纸张大小进行缩放,给分!
- 如何能得到DBListBox中选择项的内容?
- 今天才明白为什么那么多前辈告诉我别用用户直接操作数据库,我以后要做个临时表让用户操作
- socket 问题,请高手指教!急急急!!!!!
var
SortStr:string;
begin
SortStr:=Column.Field.FieldName+' ASC';
ADOTable1.Sort :=SortStr;
end;
如:DataSort.Sort := 'LastName ASC, DateDue DESC'
至于事件的话,可以是:DBGridehTitleClick(Column: TColumn);
Column是当前点击的子段
DBGridEh > OptionsEh > dghAutoSortMarking=true;
2.在DBGridEh的SortMarkingChanged事件中加以下代码,即可。var i:integer;
begin
for i:=0 to DBGridEh1.SortMarkedColumns.Count -1 do
begin
if DBGridEh1.SortMarkedColumns[i].Title.SortMarker = smUpEh then
begin
Adoquery.Sort := DBGridEh1.SortMarkedColumns[i].FieldName + ' DESC';
end else begin
Adoquery.Sort := DBGridEh1.SortMarkedColumns[i].FieldName + ' ASC';
end;
end;end;