Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Mouse Entry based on table info
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01472749
Message ID:
01472758
Views:
74
This message has been marked as the solution to the initial question of the thread.
>I have a form that has a text box to display an entered code. Simple digit 1-7 Each digit has a short text meaning.
>I created mouseenter code to open a Wait window to show what each code means.
>
>WAIT "Option 1 = Make into OER AR"+CHR(13)+;
>	"Option 2 = OE Coord. Use Only"+CHR(13)+;
>	"Option 3 = Not Applicable"+CHR(13)+;
>	"Option 4 = For Information Only"+CHR(13)+;
>	"Option 5 = Previous AR"+CHR(13)+;
>	"Option 6 = REEF Needed"+CHR(13)+;
>	"Option 7 = Preliminary" WINDOW AT MROW(), MCOL() NOWAIT NOCLEAR
>
>And I have the WAIT CLEAR in the mouseexit
>This is all hard coded and not data driven.
>This is all working fine until someone wants to add code for Option 8
>The Option codes and the Words are in a small table.
>I want to make the Wait be data driven.
>Is there a way to make the Wait be created from the table on form init?

Sure.

In form's load:
use OptionsDescriptions in 0 order by OptionID
select OptionDescriptions
lcOptionDesc = ''
scan
  lcOption = m.lcOption + 'Option ' + transform(OptionID) + " = " + OptionDesc + chr(13)

endscan

thisform.cOptionsDesc = m.lcOption
and use this property in the wait window thisform.cOptionsDesc
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform