Sıra_No

[spoke25]

kardes table yada ibdatasetin events sekmesine gell oncalcfileds diye gorecen orada;) kolay gelsin.

[haydarxxx]

Aradaşlar teşekkür ediyorum Ibquery ile düzenleme yerine işi tamamen Ibdataset e bıraktım oldu

Ibdatasetin selectsql sine

Kod: Tümünü seç

select* from TBL_GIDER order by  GIDER_TARIH ASC,SIRA_NO ASC

kaydet butonunada

Kod: Tümünü seç

var
a:integer;
begin
QRY_GIDER.edit;
QRY_GIDER.post;

QRY_GIDER.refresh;
QRY_GIDER.first;
for a:=1 to QRY_GIDER.recordcount do
begin
QRY_GIDER.edit;
QRY_GIDER.FieldByName('SIRA_NO').VALUE:=inttostr(a);
QRY_GIDER.Post;
  QRY_GIDER.next;
QRY_GIDER.Refresh;


 QRY_GIDER.Active:=false;
QRY_GIDER.Active:=true;



IBTransaction1.CommitRetaining;


 end;

şeklinde oldu.Raporuda ona göre düzenledim.Çok teşekkürler