adotable1,adotable2ye baglamada hata

[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?

[mussimsek]

yanlış forum,

lütfen Programlama forumuna sorun bu tip konuları.

Bu 2 forum karıştırılıyor ama fark baya basit aslında. Direk veritabanı ile birşeyler yapmaya çalışıyorsanız Veritabanı ve SQL forumuna, işin için delphi girmişse (Table, Query, AdoTable vs. ) Programlama forumuna.

Kolay gelsin.