adotable2 nin dbgridinde sıralama yapması için asagısakı sat

[metemete]

adotable2 nin dbgridinde sıralama yapması için asagısakı satırları kullanıyorum

Kod: Tümünü seç

procedure TCari.DBGrid1TitleClick(Column: TColumn);
Begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
if (Pos(Column.Field.FieldName, Sort)=1) and (Pos('DESC', Sort)=0) then
 Sort:= Column.Field.FieldName+ ' DESC'
end
else 
Sort:= Column.Field.FieldName+ ' ASC';
end;

adotable2 yi adotable1 ile bağlıyorum.(kart(table1),hareketler (table2))
adotable1.next tıkladığımda;
titleclicki hiç calıstırmadıysam sorun yok
ama titleclik 1 kez calıstırdıgımda "tür uyuşmazlığı" diye hata veriyor.

Adotable1.close;Adotable1.open dediğimde hata düzeliyor
Hatayı nasıl giderebilirim?

[husonet]

Kod: Tümünü seç

if adodataset1.IndexFieldNames=column.Field.FieldName then 
adodataset1.IndexFieldNames:=Column.Field.FullName+' DESC' 
else 
adodataset1.IndexFieldNames:=column.Field.FieldName

DataSet in cursorunu client olarak ayarla default olarak öyle olması lazım.
Bir de yazdığım kodu dene ASC yazamana gerek yok Alan Indexli ise Ters sıralar değise Artan bir sıralama yapar.

Kolay Gelsin...

[husonet]

Veyahut Hangi alanı Tıklandığını sorgula direk SQL kulan.

Kolay gelsin...

[metemete]

Veyahut Hangi alanı Tıklandığını sorgula direk SQL kulan.

sizde sql için kodlar varsa verebilirmisiniz?

[husonet]

İpucu kısmında detaylı örnek ler bulunmakta.

Genel yapısı

Kod: Tümünü seç

Select * From Tablo Order By Alan1

Sıralamayı tersine çevirmek içinde DESC kullanırsınız.

Kod: Tümünü seç

Select * From Tablo Order By Alan1 DESC

Kolay Gelsin...