Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Using LOOKUP() for value of coded fields
Message
From
06/09/1996 20:57:04
 
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00007373
Message ID:
00007379
Views:
33
>I've tried the following code in the textbox refresh event, but there seems to be a delay as I scroll thru the records.
>
>LOCAL lcAbbrev
>lcAbbrev = TRIM(THIS.value)
>IF !USED("abbrev")
> USE abbrev IN 0
>ENDIF
>SELECT abbrev
>lcAbbrev = LOOKUP(descript, 'COLOR ' + lcAbbrev, abbrev, 'TYPE')
>IF !EMPTY(lcAbbrev)
> THIS.value = lcAbbrev
>ENDIF
>
>
>Kim

Use Seek() instead of Lookup(). Seek() is Rushmore optimizable, Lookup() is not (as VFP Help sais). Try this:

if seek( 'COLOR ' + TRIM(THIS.value), "abbrev", 'TYPE')
this.value=abbrev.descript
endif

And open the database before effectively needed (you can keep it open as long as you need it).
In the above example you don't need to select the area for Abbrev.
Any way, this must be faster then Lookup().
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform