Re: Windows 7 + VFP9 speed problem

Author: MB Software Solutions, LLC

Posted: 2011-03-03 at 08:52:46

On 3/2/2011 3:02 PM, Mike Copeland wrote:

<snipped>

> MESSAGEBOX('Starting to load Grid. Click OK to start...',0+64,'Notice')

> LOCAL ttimestart,ttimeexp

> SELECT sku FROM skus into temp WHERE active=1 order by sku

> SELECT temp

> GO TOP IN temp

>

> ttimestart=seconds()

>

> SCAN WHILE !EOF('temp')

> thisform.ctGrid.addcomboitem(1,temp.sku)

> ENDSCAN

Mike,

Slight tweaks:

> MESSAGEBOX('Starting to load Grid. Click OK to start...',0+64,'Notice')

> LOCAL ttimestart,ttimeexp

> SELECT sku FROM skus into CURSOR temp WHERE active=1 order by sku

> SELECT temp

> LOCATE

>

> ttimestart=seconds()

>

> SCAN

> thisform.ctGrid.addcomboitem(1,temp.sku)

> ENDSCAN

Not sure if that'll make much difference, but it's known that LOCATE is

quicker than GO TOP. Also, your SCAN loop doesn't need the WHILE !EOF

clause.

My comment on the design is that I wouldn't do 23,000 items in a combo,

but I guess you can't change that now?

--

Mike Babcock, MCP

MB Software Solutions, LLC

President, Chief Software Architect

http://mbsoftwaresolutions.com

http://fabmate.com

http://twitter.com/mbabcock16

_______________________________________________

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/4D6F9D2E.70803@mbsoftwaresolutions.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 MB Software Solutions, LLC