dbgrid sort etme

[kaya]

arkadaşlar herkese kolay gelsin;


benim sorunum dbgridde alan başlıklarına tıklama yaptıksa o alana göre dbgrid i sort etmek istiyorum. yalnız her sorgulama için sql yazmak istemiyorum. dbgrid böyle kendi özelliği varmı.


yardımcı olursanız sevinirim.

[Caylaq]

Merhaba,

Dbgrid TitleClick'e bir sorgu yazman işini görmez mi ?

kolay gelsin

[Caylaq]

Hocam Bunlarda kodları

Kolay gelsin

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
const Desc=' DESC'; LenDesc=Length(Desc);
var DataSet:TDataSet;
begin
if Assigned(Column) and Assigned(Column.Field) and
Assigned(Column.Field.DataSet) then
begin
DataSet:=Column.Field.DataSet;
if DataSet is TCustomADODataSet then
with TCustomADODataSet(DataSet) do
begin
if SameText(Desc,Copy(Sort,Length(Sort)-LenDesc+1,MaxInt)) then
Sort:=Column.FieldName
else Sort:=Column.FieldName+Desc;
end;
end;
end;

[kaya]

bir deneyeyim
bilgilerin için teşekkürler

[Caylaq]

Sonucu bizimle paylaşırsanız seviniriz


Kolay gelsin

[kaya]

OK.

[Caylaq]

Teşekkürler