While Do Döngüsü Sonsuz döngüye giriyor

[tayipk]

merhaba arkadaşlar aşağıdaki gibi bir kodum var her zaman aynı yöntemle yapmama rağmen bu sefer kod sonsuz döngüye giriyor. queryimde tek kayıt olsa bile sonsuz döngüye giriyor size göre hatam nerdedir arkadaşlar.

Kod: Tümünü seç

while  not dm1.QSatistemp.eof  do
begin
  kdv:=kdv+dm1.QSatistempKDV_Tutar.AsFloat;
  ShowMessage(FloatToStr(kdv));
  toplam:=toplam+dm1.QSatistempGeneltoplam.AsFloat;
  Next;
end;
if FFaturabilgi=nil then
begin
.....
.....
end;

[mrmarman]

merhaba arkadaşlar aşağıdaki gibi bir kodum var her zaman aynı yöntemle yapmama rağmen bu sefer kod sonsuz döngüye giriyor. queryimde tek kayıt olsa bile sonsuz döngüye giriyor size göre hatam nerdedir arkadaşlar.

Kod: Tümünü seç

while  not dm1.QSatistemp.eof  do
begin
  kdv:=kdv+dm1.QSatistempKDV_Tutar.AsFloat;
  ShowMessage(FloatToStr(kdv));
  toplam:=toplam+dm1.QSatistempGeneltoplam.AsFloat;
  Next;
end;
if FFaturabilgi=nil then
begin
.....
.....
end;

Eğer BEGIN / END blok hatası yapmışsan WITH 'ler karışmış olabilir.

NEXT yerine dm1.QSatistemp.NEXT deyip denersen sorun kalmayacaktır. Tabi bağlantılı başka bir durum; dm1.QSatistemp'in EVENT'lerinde AfterScroll vb. bir şeyler yazmışsan onu da kontrol etmelisin.

[tayipk]

hocam dediğiniz şekilde sorunumu çözmüş bulunmaktayım.

Kod: Tümünü seç

dm1.qsatistemp.next;

çok sağolun.