Sıra_No
Aradaşlar teşekkür ediyorum Ibquery ile düzenleme yerine işi tamamen Ibdataset e bıraktım oldu
Ibdatasetin selectsql sine
kaydet butonunada
şeklinde oldu.Raporuda ona göre düzenledim.Çok teşekkürler
Ibdatasetin selectsql sine
Kod: Tümünü seç
select* from TBL_GIDER order by GIDER_TARIH ASC,SIRA_NO ASC
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;