Vfp and counter

Author: Sytze de Boer

Posted: 2011-12-04 at 18:12:44

I think it must be brain fade or something

I have tried different things but can't seem to find a solution

I have a large table that needs manipulating

Select winstoks

Go Top

mtodo=Reccount()

mdone=0

Do Case

Case Reccount()>100000

Set Odometer To 10000

Case Reccount()>10000

Set Odometer To 1000

Case Reccount()>1000

Set Odometer To 100

Otherwise

Set Odometer To 10

Endcase

Set Talk On

Set Talk Window

Scan

mdone=mdone+1

Wait Window Nowait Str(mdone)+" / "+Str(mtodo)

Do windnewpric2

Select winstoks

Endscan

Set Talk Off

Wait Clear

Set Odometer To 100

in this case the table has 81,000 records

The problem is that it chooses to freeze the wait window factor at a random

number and it looks like the system is frozen

But in fact, it is still processing

The app in fact tells you it is "not responding" but if you leave it long

enough, it will complete normally

I've also tried this with a thermometer routine, and it does the same thing

i.e. it looks like the thermometer is frozen at a particular point so

people use the task manager to abort the routine

As a second observation, the set odometer seems to have no effect

(It's monday morning here ..................)

--

Regards

Sytze de Boer

Kiss Software

--- StripMime Report -- processed MIME parts ---

multipart/alternative

text/plain (text body -- kept)

text/html

---

_______________________________________________

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/CAG1nNy-TZuCJEXxU19qF6tNVh2iPKP34XUvH4yNHu9RUG2GZQg@mail.gmail.com

** 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.

©2011 Sytze de Boer