> That will show you a WAIT WINDOW every 100 rows processed.

>

> Fred

Optimization ...

It is not necessary to waste time testing at each turn the value of m.done :

here is an alternate one using nested loops.

[VFP]

m.todo = " of "+TRANSFORM(RECCOUNT())+" ..."

m.odom = 100

GO TOP

SCAN REST

SCAN NEXT m.odom

** your instructions

ENDSCAN

WAIT WINDOW NOWAIT TRANSFORM(RECNO())+m.todo

ENDSCAN

[/VFP]

Gérard.

_______________________________________________

Post Messages to: ProFox@leafe.com

Subscription Maintenance: http://leafe.com/mailman/listinfo/profox

OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech

Searchable Archive: http://leafe.com/archives/search/profox

This message: http://leafe.com/archives/byMID/profox/AB08FFC9E59C4493A36D03911D4AC686@MuriellePC

** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.