iç içe while döngüsü

[kayipgemi]

arkadaşlar kolay gelsin bir sorunum var yardımcı olabilirseniz sevinirim.
delphi 7 ve sql kullanıyorum
iki adet tablom var

1. tablomda arıza tiplerim var örnegin
parça hatası
ürün hatası
işçilik hatası

2. tablomda stok kartlarım var örnegin
milenyum
seta
...
...

yapmak istediğim şu ariza tip tablomun içeriğine giricem 1. kayıtta durucam, sonra stok tablomun içine giricem sırayla butun stok kartlarıma edit (parça hatası) post; yazdıracam bütün stok kartlarımı bu işlem bittikten sonra döngü bitmeden arızatip tablomdan ikinci kaydına geçicem ve butun stok kartlarımın başka bir field alanına edit(ürün hatası) post; yaptıracam
kısacası arizatip tablomdaki bütün kayıtlar bitene kadar bu işlem devam edecek. bu kodu kullanıyorum ama calismiyor ilk kayıttan sonra işlemi bitiriyor

Kod: Tümünü seç

begin

  while not dm.arizatip.Eof do
  begin

      while not dm.urunlerfull.Eof do
      begin
      .....
      .....
      dm.urunlerfull.Next;
      end;

  dm.arizatip.Next;
  end;

ShowMessage('islem bitti');

end;

yardımcı olabilirseniz cok sevinirim Allaha emanet olun

[aslangeri]

s.a.
döngüye başlamdan önce tablodaki ilk kayıda konumlanman gerekiyor.

Kod: Tümünü seç

begin
  dm.arizatip.first;//bu satır
  while not dm.arizatip.Eof do
  begin
      dm.urunlerfull.first;//ve bu satır
      while not dm.urunlerfull.Eof do
      begin
      .....
      .....
      dm.urunlerfull.Next;
      end;

  dm.arizatip.Next;
  end;

ShowMessage('islem bitti');

end;

kolay gelsin.

[kayipgemi]

teşşekkür ederim hocam uğraşınca bende aynı sonuca ulaştım. matık olarak kayıt end of file olunca duruyo ve diger dongu otomatik olarak işlemi bitiriyor. teşekkürler sağolun aynı cevaba ulaştık. Kolay gelsin