script looping ; 1 repeat 2 zcust.Edit; 3 zcustcust_kode.Value:= generatekey(now); 4 zcust.Post; 5 zcust.Next; 6 application.ProcessMessages; 7 progresbar.position:=zcust.recno; 8 until zcust.Eof; proses looping diatas saya gunakan untuk mengisi kode customer secara masal masalahnya adalah saat progresbar sudah 100%(sudah eof) kenapa proses update ke database masih berjalan/belum selesai ya? dengan kata lain proses next(langkah 5) tidak mau menunggu proses pos (langkah 4) selesai dulu. pertanyannya gimana caranya agar langkah ke 5 dijalankan setelah terdeteksi proses update ke database selesai? tambahan; saya menggunakan zeos connection, zeos table, mysql 41 dengan delphi 6#2 akhirnya : adakah yang bisa ngebantu nih??? :idea:

Coba Pakai While do :

ZCust.First;
While Not zcust.eof Do Begin
   zcust.Edit;
   zcustcust_kode.Value:= generatekey(now);
   zcust.Post;
   progresbar.position:=zcust.recno;
   zcust.Next; 
End;

sebelum repeat tambahkan.. progresbar.max:=zcust.recordcount; soalnya max pada progressbar tidak diatur. dan defaultnya adalah 100. boleh juga tambahin zcust.first..

Thanks bantuannya... ternyata kesalahanku terletak di default sortingnya ..lupa matiin jadi dengan metode looping/sequensial menjadikan kacau prosesnya karena scara otomatis akan di sort stelah posting dan indexnya jadi amburadul... sekali lagi thanks ya ...sudah lancar sekarang :oops: